diff options
Diffstat (limited to 'src/Environment.hs')
-rw-r--r-- | src/Environment.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Environment.hs b/src/Environment.hs index b7b7ee6..e38e36c 100644 --- a/src/Environment.hs +++ b/src/Environment.hs | |||
@@ -64,5 +64,4 @@ makeBind (var, val) = do | |||
64 | manyBindings :: Env -> [(String, Expr)] -> IO Env | 64 | manyBindings :: Env -> [(String, Expr)] -> IO Env |
65 | manyBindings env binds = do | 65 | manyBindings env binds = do |
66 | ptr <- readIORef env | 66 | ptr <- readIORef env |
67 | extendedEnv <- (++ ptr) <$> mapM makeBind binds | 67 | newIORef =<< (++ ptr) <$> mapM makeBind binds |
68 | newIORef extendedEnv | ||