oops, forgot a USING

db4
Joe Groff 2009-06-18 09:57:49 -05:00
parent 48b06d6221
commit 33dcb98943
3 changed files with 6 additions and 2 deletions

View File

@ -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 ;

View File

@ -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