From: sewardj <unknown>
Date: Wed, 5 Apr 2000 14:14:51 +0000 (+0000)
Subject: [project @ 2000-04-05 14:14:51 by sewardj]
X-Git-Tag: Approximately_9120_patches~4817
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4d252b8ad12409e1cdca86efddd377f7474dc0e8;p=ghc-hetmet.git

[project @ 2000-04-05 14:14:51 by sewardj]
Nuke inexplicable calls to moduleThisScript.
---

diff --git a/ghc/interpreter/static.c b/ghc/interpreter/static.c
index 582e079..0c99493 100644
--- a/ghc/interpreter/static.c
+++ b/ghc/interpreter/static.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: static.c,v $
- * $Revision: 1.36 $
- * $Date: 2000/04/05 10:25:08 $
+ * $Revision: 1.37 $
+ * $Date: 2000/04/05 14:14:51 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -4720,12 +4720,6 @@ Cell e; {
         EEND;
     }
 
-#if 0
-    what is this for??
-    if (!moduleThisScript(name(n).mod)) {
-        return n;
-    }
-#endif
     /* Later phases of the system cannot cope if we resolve references
      * to unprocessed objects too early.  This is the main reason that
      * we cannot cope with recursive modules at the moment.