X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FLinker.lhs;h=e965d01b28d57b8531a10b0079eb7e800ceedd51;hb=0116f0598ac43a9a6f2cb2d5f42b284955695e9b;hp=5f19e2b62aa1a5346538c188e74d48c3957c8ebe;hpb=187dc566092345305b7255166d49d2b5e609b249;p=ghc-hetmet.git

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index 5f19e2b..e965d01 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -35,7 +35,7 @@ import DriverState	( v_Cmdline_frameworks, v_Framework_paths )
 #endif
 import Finder		( findModule, findLinkable )
 import HscTypes
-import Name		( Name,  nameModule, isExternalName )
+import Name		( Name,  nameModule, isExternalName, isWiredInName )
 import NameEnv
 import NameSet		( nameSetToList )
 import Module
@@ -327,7 +327,14 @@ linkExpr hsc_env pcs root_ul_bco
      free_names = nameSetToList (bcoFreeNames root_ul_bco)
 
      needed_mods :: [Module]
-     needed_mods = [ nameModule n | n <- free_names, isExternalName n ]
+     needed_mods = [ nameModule n | n <- free_names, 
+				    isExternalName n,	 	-- Names from other modules
+				    not (isWiredInName n)	-- Exclude wired-in names
+		   ]						-- (see note below)
+	-- Exclude wired-in names because we may not have read
+	-- their interface files, so getLinkDeps will fail
+	-- All wired-in names are in the base package, which we link
+	-- by default, so we can safely ignore them here.
  
 dieWith msg = throwDyn (ProgramError (showSDoc msg))