X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=f1c7b88684a1ebf9254dbe23c3c710eb6169a583;hp=1656e1ccbc95ae0e0c1ecfa44d737e4c118d82df;hb=f8c52d7fde2d7408b4f734251c373f8d3e2c558e;hpb=907c44ca14e479e5fa64d712703b8fbad19d1e04

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 1656e1c..f1c7b88 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -562,10 +562,8 @@ load2 s@(Session ref) how_much mod_graph = do
 	-- (see msDeps)
         let all_home_mods = [ms_mod_name s 
 			    | s <- mod_graph, not (isBootSummary s)]
-#ifdef DEBUG
 	    bad_boot_mods = [s 	      | s <- mod_graph, isBootSummary s,
 					not (ms_mod_name s `elem` all_home_mods)]
-#endif
 	ASSERT( null bad_boot_mods ) return ()
 
         -- mg2_with_srcimps drops the hi-boot nodes, returning a