From 3ae000d5abe831b75c6e5cf33fb8ff8151f0edb8 Mon Sep 17 00:00:00 2001 From: James Cash Date: Wed, 13 Aug 2008 23:19:18 -0400 Subject: [PATCH] varadic lambdas now working --- extra/lisp/lisp.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor index 9fd8c14933..e6e3a7b13b 100644 --- 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-rewrite call ] dip - swap '[ , cut '[ @ , seq>list ] call , call ] ; + swap '[ , cut '[ @ , seq>list ] call , call call ] ; : normal-lambda ( body vars -- quot ) localize-lambda lambda-rewrite [ compose call call ] compose 1quotation ;