From ed61ae48a570bd279f39480b53f767616a9d43ab Mon Sep 17 00:00:00 2001 From: JeffBezanson Date: Tue, 15 Jul 2008 01:24:50 +0000 Subject: [PATCH] fixing mistake re: dotted arglists in last revision --- femtolisp/flisp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/femtolisp/flisp.c b/femtolisp/flisp.c index dd5e393..d5c91f0 100644 --- a/femtolisp/flisp.c +++ b/femtolisp/flisp.c @@ -1227,7 +1227,7 @@ static value_t eval_sexpr(value_t e, value_t *penv, int tail) 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