2009-05-05 18:24:59 -04:00
|
|
|
USING: fry namespaces kernel sequences parser ;
|
|
|
|
|
IN: closures
|
2009-05-06 22:34:27 -04:00
|
|
|
: delayed-bind ( quot -- quot' ) '[ namestack [ set-namestack @ ] curry ] ;
|
2009-05-05 18:24:59 -04:00
|
|
|
SYNTAX: C[ parse-quotation delayed-bind over push-all ;
|