[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 (file)
--- 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