[project @ 2001-01-31 12:40:51 by simonmar]

Throw away linkables in cmUnload, as well as interfaces.

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 9948d3d..7e5766c 100644 (file)
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -144,7 +144,7 @@ cmUnload state
  = do -- Throw away the old home dir cache
       emptyHomeDirCache
       -- Throw away the HIT and the HST
-      return state{ hst=new_hst, hit=new_hit }
+      return state{ hst=new_hst, hit=new_hit, ui=emptyUI }
    where
      CmState{ hst=hst, hit=hit } = state
      (new_hst, new_hit) = retainInTopLevelEnvs [] (hst,hit)