From: sewardj <unknown>
Date: Wed, 7 Feb 2001 13:47:03 +0000 (+0000)
Subject: [project @ 2001-02-07 13:47:03 by sewardj]
X-Git-Tag: Approximately_9120_patches~2717
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=655511969abbc45d4b714d196d60c43a47a15b56;p=ghc-hetmet.git

[project @ 2001-02-07 13:47:03 by sewardj]
#ifndef GHCI wibbles.
---

diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs
index c363761..e3935cf 100644
--- a/ghc/compiler/compMan/CmLink.lhs
+++ b/ghc/compiler/compMan/CmLink.lhs
@@ -107,6 +107,7 @@ unload :: GhciMode
        -> PersistentLinkerState
        -> IO PersistentLinkerState 
 
+#ifdef GHCI
 unload Batch       dflags linkables pls = return pls
 unload Interactive dflags linkables pls
   = do new_loaded <- filterM maybeUnload (objects_loaded pls)
@@ -131,7 +132,9 @@ unload Interactive dflags linkables pls
 		       | otherwise              -> return True
 	  where
 	     unloadObjs = mapM unloadObj [ f | DotO f <- objs ]
-
+#else
+unload = panic "CmLink.unload: no interpreter"
+#endif
 -----------------------------------------------------------------------------
 -- Linking
 
@@ -212,7 +215,6 @@ filterModuleLinkables p (li:lis)
 
 #ifndef GHCI
 linkObjs      = panic "CmLink.linkObjs: no interpreter"
-unload        = panic "CmLink.unload: no interpreter"
 lookupClosure = panic "CmLink.lookupClosure: no interpreter"
 #else
 linkObjs [] pls = linkFinish pls []