From: simonmar <unknown>
Date: Fri, 1 Jul 2005 09:41:24 +0000 (+0000)
Subject: [project @ 2005-07-01 09:41:24 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~402
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=abcf7aef522df2711f4280a88c3546d5fccda16e;p=ghc-hetmet.git

[project @ 2005-07-01 09:41:24 by simonmar]
setContextAfterLoad: include the Prelude if the top module is compiled
(this broke at some point in the HEAD, 6.4 works fine).
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 2e02c00..5eeb1a3 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -701,7 +701,7 @@ setContextAfterLoad (m:_) = do
   session <- getSession
   b <- io (GHC.moduleIsInterpreted session m)
   if b then io (GHC.setContext session [m] []) 
-       else io (GHC.setContext session []  [m])
+       else io (GHC.setContext session []  [prelude_mod,m])
 
 modulesLoadedMsg :: SuccessFlag -> [Module] -> GHCi ()
 modulesLoadedMsg ok mods = do