steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

varadic lambdas now working

db4
James Cash 2008-08-13 23:19:18 -04:00
parent 2487ff9c8c
commit 3ae000d5ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/lisp/lisp.factor
View File

@ -46,7 +46,7 @@ DEFER: define-lisp-macro
: rest-lambda ( body vars -- quot ) : rest-lambda ( body vars -- quot )
"&rest" swap [ remove ] [ index ] 2bi "&rest" swap [ remove ] [ index ] 2bi
[ localize-lambda <lambda> lambda-rewrite call ] dip [ 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 ) : normal-lambda ( body vars -- quot )
localize-lambda <lambda> lambda-rewrite [ compose call call ] compose 1quotation ; localize-lambda <lambda> lambda-rewrite [ compose call call ] compose 1quotation ;