X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FLinker.lhs;h=c97f942705a062ed2dc9df3b48c108d54d137d52;hb=1f574dc41f5d11aec48a6ee24c0a28ee60267f95;hp=3a5ecf8a6d62f508d37cd0449d162112dcaedfcc;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs
index 3a5ecf8..c97f942 100644
--- a/compiler/ghci/Linker.lhs
+++ b/compiler/ghci/Linker.lhs
@@ -146,8 +146,8 @@ withExtendedLinkEnv new_env action
                            let new_closure_env = extendClosureEnv (closure_env pls) new_env
                                new_pls = pls { closure_env = new_closure_env }
                            writeIORef v_PersistentLinkerState new_pls
-                           return pls
-          reset_old_env pls = writeIORef v_PersistentLinkerState pls
+                           return (closure_env pls)
+          reset_old_env env = modifyIORef v_PersistentLinkerState (\pls -> pls{ closure_env = env })
 
 -- filterNameMap removes from the environment all entries except 
 -- 	those for a given set of modules;