lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixing glaring bug in last revision

This commit is contained in:
JeffBezanson 2009-04-15 00:30:24 +00:00
parent 672558d30f
commit 81641a2240
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
femtolisp/flisp.c
View File

@ -1563,6 +1563,7 @@ static value_t apply_cl(uint32_t nargs)
Stack[bp+i+1] = Stack[bp+nargs]; Stack[bp+i+1] = Stack[bp+nargs];
Stack[bp+i+2] = Stack[bp+nargs+1]; Stack[bp+i+2] = Stack[bp+nargs+1];
Stack[bp+i+3] = Stack[bp+nargs+2]; Stack[bp+i+3] = Stack[bp+nargs+2];
pvals = &Stack[bp+nargs+2];
} }
else { else {
PUSH(NIL); PUSH(NIL);
@ -1570,6 +1571,7 @@ static value_t apply_cl(uint32_t nargs)
Stack[SP-2] = Stack[SP-3]; Stack[SP-2] = Stack[SP-3];
Stack[SP-3] = Stack[SP-4]; Stack[SP-3] = Stack[SP-4];
Stack[SP-4] = NIL; Stack[SP-4] = NIL;
pvals = &Stack[SP-1];
} }
nargs = i+1; nargs = i+1;
break; break;

3
femtolisp/system.lsp
View File

@ -643,7 +643,8 @@
(define (expand x) (macroexpand x)) (define (expand x) (macroexpand x))
(define (load-process x) (eval (expand x))) (if (not (bound? 'load-process))
(define (load-process x) (eval (expand x))))
(define (load filename) (define (load filename)
(let ((F (file filename :read))) (let ((F (file filename :read)))