oops, forgot a USING
parent
48b06d6221
commit
33dcb98943
|
@ -19,3 +19,7 @@ PRIVATE>
|
||||||
SYNTAX: $ scan-word expand-literal >vector ;
|
SYNTAX: $ scan-word expand-literal >vector ;
|
||||||
SYNTAX: $[ parse-quotation with-datastack >vector ;
|
SYNTAX: $[ parse-quotation with-datastack >vector ;
|
||||||
SYNTAX: ${ \ } [ expand-literals ] parse-literal ;
|
SYNTAX: ${ \ } [ expand-literals ] parse-literal ;
|
||||||
|
|
||||||
|
SYNTAX: $$
|
||||||
|
scan-word execute( accum -- accum ) dup pop [ >quotation ] keep
|
||||||
|
[ output>sequence ] 2curry call( -- object ) parsed ;
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! (c)2009 Joe Groff bsd license
|
! (c)2009 Joe Groff bsd license
|
||||||
USING: accessors assocs kernel locals sequences ui
|
USING: accessors assocs kernel locals sequences ui
|
||||||
ui.gadgets.worlds ;
|
ui.gadgets ui.gadgets.worlds ;
|
||||||
IN: window-controls-demo
|
IN: window-controls-demo
|
||||||
|
|
||||||
CONSTANT: window-control-sets-to-test
|
CONSTANT: window-control-sets-to-test
|
||||||
|
|
Loading…
Reference in New Issue