From 7a498e3a581f26b81fc9c2c9c7af8448a7f84f0f Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 4 Oct 2022 14:46:45 +0300
Subject: Rename and refactor

---
 src/Lib.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Lib.hs')

diff --git a/src/Lib.hs b/src/Lib.hs
index a8a536f..8b26a35 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -38,6 +38,6 @@ runInlineScript fileName env src = do
             foldEvaluate :: Env -> [AST] -> LContext (Env, [AST])
             foldEvaluate accEnv [] = return (accEnv, [])
             foldEvaluate accEnv (ast:rest) = do
-                (newAccEnv, newAst) <- evaluate accEnv ast
+                (newAccEnv, newAst) <- evaluate 0 accEnv ast
                 (retEnv, restEvaled) <- foldEvaluate newAccEnv rest
                 return $ (retEnv, newAst : restEvaled)
-- 
cgit v1.3