Fixed plet syntax

sasagawa888 · Sep 10, 2023 · 3899de3 · 3899de3
1 parent 6bb26ff
commit 3899de3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/function.c b/function.c
@@ -1758,6 +1758,7 @@ int f_map_into(int arglist, int th)
     arg2 = cadr(arglist);
     arg3 = cddr(arglist);
 
+    arg4 = NIL;
     if (listp(arg1) && nullp(arg3))
 	arg4 = arg1;
     else if (listp(arg1))

diff --git a/syntax.c b/syntax.c
@@ -2726,6 +2726,7 @@ int f_plet(int arglist, int th __unused)
 	i++;
     }
 
+	res = NIL;
     while (arg2 != NIL) {
 	shelter_push(arg2, 0);
 	res = eval(car(arg2), 0);