X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FstgSyn%2FCoreToStg.lhs;h=dbb785bed4cdb1713ef5964a9c8eee35713debb8;hb=30c122df62ec75f9ed7f392f24c2925675bf1d06;hp=529de774e77b7e14bf753ad9cf4cdea9f079634a;hpb=625ca288ad84f04f191e1aa0109bb9a08b2be473;p=ghc-hetmet.git

diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs
index 529de77..dbb785b 100644
--- a/compiler/stgSyn/CoreToStg.lhs
+++ b/compiler/stgSyn/CoreToStg.lhs
@@ -39,6 +39,8 @@ import StaticFlags	( opt_RuntimeTypes )
 import Module
 import Outputable
 import MonadUtils
+import FastString
+import Util
 \end{code}
 
 %************************************************************************
@@ -636,16 +638,12 @@ coreToStgLet let_no_escape bind body = do
 
 	no_binder_escapes = isEmptyVarSet (set_of_binders `intersectVarSet` all_escs)
 
-#ifdef DEBUG
 	-- Debugging code as requested by Andrew Kennedy
 	checked_no_binder_escapes
-		| not no_binder_escapes && any is_join_var binders
+		| debugIsOn && not no_binder_escapes && any is_join_var binders
 		= pprTrace "Interesting!  A join var that isn't let-no-escaped" (ppr binders)
 		  False
 		| otherwise = no_binder_escapes
-#else
-	checked_no_binder_escapes = no_binder_escapes
-#endif
 			    
 		-- Mustn't depend on the passed-in let_no_escape flag, since
 		-- no_binder_escapes is used by the caller to derive the flag!