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

fixing bug in macroexpand on lambdas

This commit is contained in:
JeffBezanson 2009-03-27 03:47:11 +00:00
parent 4cb9685266
commit c076be667b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
femtolisp/system.lsp
View File

@ -111,6 +111,10 @@
(if f (if f
(macroexpand-in (apply f (cdr e)) env) (macroexpand-in (apply f (cdr e)) env)
(cond ((eq (car e) 'quote) e) (cond ((eq (car e) 'quote) e)
((eq (car e) 'lambda)
(nlist* 'lambda (cadr e)
(macroexpand-in (caddr e) env)
(cdddr e)))
((eq (car e) 'let-syntax) ((eq (car e) 'let-syntax)
(let ((binds (cadr e)) (let ((binds (cadr e))
(body (f-body (cddr e)))) (body (f-body (cddr e))))