Fixing rest-lambda
parent
b87eee4d74
commit
2a92f454a6
|
@ -43,7 +43,7 @@ DEFER: define-lisp-macro
|
||||||
|
|
||||||
: rest-lambda ( body vars -- quot )
|
: rest-lambda ( body vars -- quot )
|
||||||
"&rest" swap [ index ] [ remove ] 2bi
|
"&rest" swap [ index ] [ remove ] 2bi
|
||||||
localize-lambda <lambda>
|
swapd localize-lambda <lambda>
|
||||||
'[ , cut '[ @ , ] , compose ] ;
|
'[ , cut '[ @ , ] , compose ] ;
|
||||||
|
|
||||||
: normal-lambda ( body vars -- quot )
|
: normal-lambda ( body vars -- quot )
|
||||||
|
|
Loading…
Reference in New Issue