From: sewardj <unknown>
Date: Wed, 12 Jan 2000 14:47:27 +0000 (+0000)
Subject: [project @ 2000-01-12 14:47:27 by sewardj]
X-Git-Tag: Approximately_9120_patches~5310
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=de2f6e78f7ef1fb37555d659fa46773e759666d0;p=ghc-hetmet.git

[project @ 2000-01-12 14:47:27 by sewardj]
readScripts(), combined mode: minor hack so that current eval module
is Prelude rather than PrelHugs, once the Prelude is loaded.
---

diff --git a/ghc/interpreter/hugs.c b/ghc/interpreter/hugs.c
index d788d47..57a8fd4 100644
--- a/ghc/interpreter/hugs.c
+++ b/ghc/interpreter/hugs.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: hugs.c,v $
- * $Revision: 1.35 $
- * $Date: 2000/01/11 14:21:43 $
+ * $Revision: 1.36 $
+ * $Date: 2000/01/12 14:47:27 $
  * ------------------------------------------------------------------------*/
 
 #include <setjmp.h>
@@ -1260,6 +1260,11 @@ Int n; {                                /* loading everything after and    */
 
     { Int  m     = namesUpto-1;
       Text mtext = findText(scriptInfo[m].modName);
+
+      /* Hack to avoid starting up in PrelHugs */
+      if (mtext == findText("PrelHugs")) mtext = findText("Prelude");
+
+
       /* Commented out till we understand what
        * this is trying to do.
        * Problem, you cant find a module till later.