X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverState.hs;h=76c829587d656b294e37d125677a7509b7385d91;hb=0116f0598ac43a9a6f2cb2d5f42b284955695e9b;hp=78ee4d30d9e7aa7aae1e3b29e864541b50fd07f7;hpb=187dc566092345305b7255166d49d2b5e609b249;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index 78ee4d3..76c8295 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.90 2003/02/04 15:09:40 simonpj Exp $
+-- $Id: DriverState.hs,v 1.91 2003/06/12 16:50:19 simonpj Exp $
 --
 -- Settings for the driver
 --
@@ -478,7 +478,12 @@ mungePackagePaths top_dir ps = map munge_pkg ps
 -- earlier packages may depend on later ones, but not vice versa
 GLOBAL_VAR(v_ExplicitPackages, initPackageList, [PackageName])
 
-initPackageList = [rtsPackage]
+initPackageList = [basePackage, rtsPackage]
+	-- basePackage is part of this list entirely because of 
+	-- wired-in names in GHCi.  See the notes on wired-in names in
+	-- Linker.linkExpr.  By putting the base backage in initPackageList
+	-- we make sure that it'll always by linked.
+
 
 -- add a package requested from the command-line
 addPackage :: String -> IO ()