Constant-diadic lambdas work now, just need to get vararg lambdas and macros

diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor
index 5f5cebc0709d1c0873e5b438a7646667f0e1f38f..9fd8c149338982f0dae7150173c4f3f1686563cb 100644 (file)
--- a/extra/lisp/lisp.factor
+++ b/extra/lisp/lisp.factor
@@ -49,7 +49,7 @@ DEFER: define-lisp-macro
     swap '[ , cut '[ @ , seq>list ] call , call ] ;
 
 : normal-lambda ( body vars -- quot )
-    localize-lambda <lambda> lambda-rewrite [ compose call ] compose 1quotation ;
+    localize-lambda <lambda> lambda-rewrite [ compose call call ] compose 1quotation ;
 PRIVATE>
 
 : convert-lambda ( cons -- quot )