oops, forgot a USING
parent
b829407b86
commit
c19c0d0395
|
@ -19,3 +19,7 @@ PRIVATE>
|
|||
SYNTAX: $ scan-word expand-literal >vector ;
|
||||
SYNTAX: $[ parse-quotation with-datastack >vector ;
|
||||
SYNTAX: ${ \ } [ expand-literals ] parse-literal ;
|
||||
|
||||
SYNTAX: $$
|
||||
scan-word execute( accum -- accum ) dup pop [ >quotation ] keep
|
||||
[ output>sequence ] 2curry call( -- object ) parsed ;
|
||||
|
|
|
@ -25,7 +25,7 @@ IN: half-floats.tests
|
|||
[ -1.5 ] [ HEX: be00 bits>half ] unit-test
|
||||
[ 1/0. ] [ HEX: 7c00 bits>half ] unit-test
|
||||
[ -1/0. ] [ HEX: fc00 bits>half ] unit-test
|
||||
[ t ] [ HEX: 7e00 bits>half fp-nan? ] unit-test
|
||||
[ t ] [ HEX: 7e00 bits>half fp-nan? ] unit-test
|
||||
|
||||
C-STRUCT: halves
|
||||
{ "half" "tom" }
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
! (c)2009 Joe Groff bsd license
|
||||
USING: accessors assocs kernel locals sequences ui
|
||||
ui.gadgets.worlds ;
|
||||
ui.gadgets ui.gadgets.worlds ;
|
||||
IN: window-controls-demo
|
||||
|
||||
CONSTANT: window-control-sets-to-test
|
||||
|
|
Loading…
Reference in New Issue