From 655511969abbc45d4b714d196d60c43a47a15b56 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 7 Feb 2001 13:47:03 +0000
Subject: [PATCH] [project @ 2001-02-07 13:47:03 by sewardj] #ifndef GHCI
 wibbles.

---
 ghc/compiler/compMan/CmLink.lhs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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