shithub: femtolisp

Download patch

ref: ed61ae48a570bd279f39480b53f767616a9d43ab
parent: b76bbe37247399331e39bfbbef8724bb2520065d
author: JeffBezanson <[email protected]>
date: Mon Jul 14 21:24:50 EDT 2008

fixing mistake re: dotted arglists in last revision



--- a/femtolisp/flisp.c
+++ b/femtolisp/flisp.c
@@ -1227,7 +1227,7 @@
                 v = Stack[saveSP] = cdr_(Stack[saveSP]);
             }
             if (*argsyms != NIL && issymbol(*argsyms)) {
-                PUSH(NIL);
+                PUSH(Stack[saveSP]);
                 // this version uses collective allocation. about 7-10%
                 // faster for lists with > 2 elements, but uses more
                 // stack space