diff options
| author | Akshay <[email protected]> | 2020-11-12 05:54:46 +0000 |
|---|---|---|
| committer | Akshay <[email protected]> | 2020-11-12 05:54:46 +0000 |
| commit | 841e23f1f5036748e3d179e3f96eedd5bcfdb555 (patch) | |
| tree | 88408ffaa869aae221586711f9c89c34859e7cb2 /src/Environment.hs | |
| parent | 29d8f8ea04ca651616b4bdd8d3a61da9f0cfae29 (diff) | |
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 | ||