From: sewardj <unknown>
Date: Wed, 7 Feb 2001 16:17:26 +0000 (+0000)
Subject: [project @ 2001-02-07 16:17:26 by sewardj]
X-Git-Tag: Approximately_9120_patches~2714
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0a8f06f6bbae3d4f3166d95ac8fc420e110015b5;p=ghc-hetmet.git

[project @ 2001-02-07 16:17:26 by sewardj]
Always have (unload Batch) work, regardless if definedness of GHCI.
---

diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs
index e3935cf..3b3e28b 100644
--- a/ghc/compiler/compMan/CmLink.lhs
+++ b/ghc/compiler/compMan/CmLink.lhs
@@ -107,8 +107,9 @@ unload :: GhciMode
        -> PersistentLinkerState
        -> IO PersistentLinkerState 
 
+unload Batch dflags linkables pls = return pls
+
 #ifdef GHCI
-unload Batch       dflags linkables pls = return pls
 unload Interactive dflags linkables pls
   = do new_loaded <- filterM maybeUnload (objects_loaded pls)
        let mods_retained = map linkableModName new_loaded
@@ -133,7 +134,7 @@ unload Interactive dflags linkables pls
 	  where
 	     unloadObjs = mapM unloadObj [ f | DotO f <- objs ]
 #else
-unload = panic "CmLink.unload: no interpreter"
+unload Interactive dflags linkables pls = panic "CmLink.unload: no interpreter"
 #endif
 -----------------------------------------------------------------------------
 -- Linking