[project @ 2000-04-17 13:28:17 by sewardj]

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

diff --git a/ghc/interpreter/lift.c b/ghc/interpreter/lift.c
index 4e4240f..b41d1f5 100644 (file)
--- a/ghc/interpreter/lift.c
+++ b/ghc/interpreter/lift.c
@@ -12,11 +12,11 @@
  * included in the distribution.
  *
  * $RCSfile: lift.c,v $
- * $Revision: 1.11 $
- * $Date: 2000/03/10 20:03:36 $
+ * $Revision: 1.13 $
+ * $Date: 2000/03/23 14:54:21 $
  * ------------------------------------------------------------------------*/
 
-#include "prelude.h"
+#include "hugsbasictypes.h"
 #include "storage.h"
 #include "connect.h"
 #include "errors.h"
@@ -175,7 +175,7 @@ List liftBinds( List binds )
         StgVar bind = hd(bs);
 
         if (debugSC) {
-           if (lastModule() != modulePrelude) {
+           if (currentModule != modulePrelude) {
               fprintf(stderr, "\n");
               ppStg(hd(bs));
               fprintf(stderr, "\n");