[project @ 1999-11-29 18:59:23 by sewardj]

[ghc-hetmet.git] / ghc / interpreter / lift.c

diff --git a/ghc/interpreter/lift.c b/ghc/interpreter/lift.c
index df2cdd3..e5ddb05 100644 (file)
--- a/ghc/interpreter/lift.c
+++ b/ghc/interpreter/lift.c
@@ -12,8 +12,8 @@
  * included in the distribution.
  *
  * $RCSfile: lift.c,v $
- * $Revision: 1.8 $
- * $Date: 1999/11/23 18:08:17 $
+ * $Revision: 1.9 $
+ * $Date: 1999/11/29 18:59:29 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -174,11 +174,14 @@ List liftBinds( List binds )
 
     for(bs=binds; nonNull(bs); bs=tl(bs)) {
         StgVar bind = hd(bs);
-#if 0
-        fprintf(stderr, "\n");
-        if (lastModule() != modulePrelude) ppStg(hd(bs));
-        fprintf(stderr, "\n");
-#endif
+
+        if (debugSC) {
+           if (lastModule() != modulePrelude) {
+              fprintf(stderr, "\n");
+              ppStg(hd(bs));
+              fprintf(stderr, "\n");
+           }
+        }
         freeVarsBind(NIL,bind);
         stgVarInfo(bind) = NONE; /* mark as top level */
     }