fixing bug in macroexpand on lambdas

2009-03-27 03:47:11 +00:00 · 2009-03-27 03:47:11 +00:00 · c076be667b
parent 4cb9685266
commit c076be667b
1 changed files with 4 additions and 0 deletions
--- a/femtolisp/system.lsp
+++ b/femtolisp/system.lsp
@ -111,6 +111,10 @@
 	      (if f
 		  (macroexpand-in (apply f (cdr e)) env)
 		  (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)
 			 (let ((binds (cadr e))
 			       (body  (f-body (cddr e))))