v1.0.1 :: Lambda hotfix

ProggerX · Mar 2, 2025 · 7d1d51d · 7d1d51d
1 parent cddbd78
commit 7d1d51d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/Lapse/Lambda.hs b/src/Lapse/Lambda.hs
@@ -27,11 +27,12 @@ unName v = error $ "Expected name, but got: " ++ show v
 mkFunction :: (Monad m) => [Value m] -> Value m -> LapseM m (Func m)
 mkFunction argsN' expr = gets f
  where
-  f ss args =
+  f ss args = do
+    ns <- get
     let
       argsV = unList args
       argsN = map unName argsN'
-      ss' = fromList (zip argsN argsV) : ss
+      ss' = fromList (zip argsN argsV) : ss ++ ns
      in
       inScopes ss' expr
 

diff --git a/test-code.lp b/test-code.lp
@@ -12,3 +12,5 @@
 	  (print "1 <= 2"))
 (if (< 1 2) (print "1 < 2")
 	  (print "1 >= 2"))
+(defn fac (x) (if (< x 1) 1 (* x (fac (- x 1)))))
+(print (fac 6))