From abcf7aef522df2711f4280a88c3546d5fccda16e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 1 Jul 2005 09:41:24 +0000
Subject: [PATCH] [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).

---
 ghc/compiler/ghci/InteractiveUI.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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