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
 manyBindings :: Env -> [(String, Expr)] -> IO Env
 manyBindings env binds = do
     ptr <- readIORef env
-    extendedEnv <- (++ ptr) <$> mapM makeBind binds
-    newIORef extendedEnv
+    newIORef =<< (++ ptr) <$> mapM makeBind binds