Fixing rest-lambda

db4
James Cash 2008-06-07 12:36:37 -04:00
parent b87eee4d74
commit 2a92f454a6
1 changed files with 1 additions and 1 deletions

View File

@ -43,7 +43,7 @@ DEFER: define-lisp-macro
: rest-lambda ( body vars -- quot )
"&rest" swap [ index ] [ remove ] 2bi
localize-lambda <lambda>
swapd localize-lambda <lambda>
'[ , cut '[ @ , ] , compose ] ;
: normal-lambda ( body vars -- quot )