* included in the distribution.
*
* $RCSfile: lift.c,v $
- * $Revision: 1.9 $
- * $Date: 1999/11/29 18:59:29 $
+ * $Revision: 1.13 $
+ * $Date: 2000/03/23 14:54:21 $
* ------------------------------------------------------------------------*/
-#include "prelude.h"
+#include "hugsbasictypes.h"
#include "storage.h"
-#include "backend.h"
#include "connect.h"
#include "errors.h"
StgVar bind = hd(bs);
if (debugSC) {
- if (lastModule() != modulePrelude) {
+ if (currentModule != modulePrelude) {
fprintf(stderr, "\n");
ppStg(hd(bs));
fprintf(stderr, "\n");
Void liftControl(what)
Int what; {
switch (what) {
- case INSTALL:
- /* deliberate fall though */
- case RESET:
- liftedBinds = NIL;
- break;
- case MARK:
- mark(liftedBinds);
- break;
+ case POSTPREL: break;
+
+ case PREPREL:
+ case RESET:
+ liftedBinds = NIL;
+ break;
+ case MARK:
+ mark(liftedBinds);
+ break;
}
}