varadic lambdas now working

diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor
index 9fd8c149338982f0dae7150173c4f3f1686563cb..e6e3a7b13bbb65f31ad73cebc424d8bb3e25dab8 100644 (file)
--- a/extra/lisp/lisp.factor
+++ b/extra/lisp/lisp.factor
@@ -46,7 +46,7 @@ DEFER: define-lisp-macro
 : rest-lambda ( body vars -- quot )
     "&rest" swap [ remove ] [ index ] 2bi
     [ localize-lambda <lambda> lambda-rewrite call ] dip
-    swap '[ , cut '[ @ , seq>list ] call , call ] ;
+    swap '[ , cut '[ @ , seq>list ] call , call call ] ;
 
 : normal-lambda ( body vars -- quot )
     localize-lambda <lambda> lambda-rewrite [ compose call call ] compose 1quotation ;