Constant-diadic lambdas work now, just need to get vararg lambdas and macros
parent
e6c9a3dfa5
commit
2487ff9c8c
|
@ -49,7 +49,7 @@ DEFER: define-lisp-macro
|
||||||
swap '[ , cut '[ @ , seq>list ] call , call ] ;
|
swap '[ , cut '[ @ , seq>list ] call , call ] ;
|
||||||
|
|
||||||
: normal-lambda ( body vars -- quot )
|
: normal-lambda ( body vars -- quot )
|
||||||
localize-lambda <lambda> lambda-rewrite [ compose call ] compose 1quotation ;
|
localize-lambda <lambda> lambda-rewrite [ compose call call ] compose 1quotation ;
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: convert-lambda ( cons -- quot )
|
: convert-lambda ( cons -- quot )
|
||||||
|
|
Loading…
Reference in New Issue