fixed bug affecting user-defined functions with more than one argument

dktr0 · Oct 2, 2024 · 024f79c · 024f79c
1 parent a34c4a0
commit 024f79c
Show file tree

Hide file tree

Showing 2 changed files with 33 additions and 20 deletions.
diff --git a/punctual.js b/punctual.js
diff --git a/src/Parser.purs b/src/Parser.purs
@@ -416,16 +416,29 @@ numberSignalSignalSignal p f = pure $ abcd p f
 
 
 embedLambdas :: Position -> List String -> Expression -> P Value
-embedLambdas _ Nil e = parseExpression e
-embedLambdas p (x:xs) e = pure $ ValueFunction p (\v -> embedLambda x v (embedLambdas (valuePosition v) xs e))
+embedLambdas p ks e = do
+  cachedS <- get
+  a <- _embedLambdas p ks e
+  put cachedS
+  pure a
 
+_embedLambdas :: Position -> List String -> Expression -> P Value
+_embedLambdas _ Nil e = parseExpression e
+_embedLambdas p (k:ks) e = pure $ ValueFunction p (\v -> do
+  s <- get
+  put $ Map.insert k v s
+  embedLambdas (valuePosition v) ks e
+  )
+
+{-
 embedLambda :: forall a. String -> Value -> P a -> P a
 embedLambda k v p = do
   cachedS <- get
   put $ Map.insert k v cachedS
   a <- p
   put cachedS
   pure a
+-}
 
 importLibrary :: Position -> Value -> P Value
 importLibrary p v = do