From de2f6e78f7ef1fb37555d659fa46773e759666d0 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 12 Jan 2000 14:47:27 +0000
Subject: [PATCH] [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.

---
 ghc/interpreter/hugs.c |    9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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.
-- 
1.7.10.4