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

Don't need with-locals anymore, removing

db4
James Cash 2008-05-11 20:03:36 -04:00
parent 89e6869da1
commit f88a02b5c1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/lisp/lisp.factor
View File

@ -43,10 +43,10 @@ PRIVATE>
: rest-lambda ( body vars -- quot ) : rest-lambda ( body vars -- quot )
"&rest" swap [ remove ] [ index ] 2bi "&rest" swap [ remove ] [ index ] 2bi
[ localize-lambda <lambda> ] dip [ localize-lambda <lambda> ] dip
[ , cut swap [ % , ] bake , with-locals compose ] bake ; [ , cut swap [ % , ] bake , compose ] bake ;
: normal-lambda ( body vars -- quot ) : normal-lambda ( body vars -- quot )
localize-lambda <lambda> [ , with-locals compose ] bake ; localize-lambda <lambda> [ , compose ] bake ;
: convert-lambda ( s-exp -- quot ) : convert-lambda ( s-exp -- quot )
split-lambda dup "&rest" swap member? [ rest-lambda ] [ normal-lambda ] if ; split-lambda dup "&rest" swap member? [ rest-lambda ] [ normal-lambda ] if ;