From 0a8f06f6bbae3d4f3166d95ac8fc420e110015b5 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 7 Feb 2001 16:17:26 +0000
Subject: [PATCH] [project @ 2001-02-07 16:17:26 by sewardj] Always have
 (unload Batch) work, regardless if definedness of GHCI.

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

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