Minor changes, still trying to get lisp working
parent
1e1fab23b5
commit
a7f385ef12
|
@ -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 ;
|
localize-lambda <lambda> lambda-rewrite [ compose call ] compose 1quotation ;
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: convert-lambda ( cons -- quot )
|
: convert-lambda ( cons -- quot )
|
||||||
|
|
Loading…
Reference in New Issue