From 841e23f1f5036748e3d179e3f96eedd5bcfdb555 Mon Sep 17 00:00:00 2001
From: Akshay <nerdy@peppe.rs>
Date: Thu, 12 Nov 2020 11:24:46 +0530
Subject: refactor LispNumber into Base, improve numerical calculations

---
 src/Environment.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/Environment.hs')

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
-- 
cgit v1.2.3