steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

oops, forgot a USING

Joe Groff 2009-06-18 09:57:49 -05:00
parent b829407b86
commit c19c0d0395
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/literals/literals.factor
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 ;

2
extra/half-floats/half-floats-tests.factor
View File

@ -25,7 +25,7 @@ IN: half-floats.tests
[ -1.5 ] [ HEX: be00 bits>half ] unit-test [ -1.5 ] [ HEX: be00 bits>half ] unit-test
[ 1/0. ] [ HEX: 7c00 bits>half ] unit-test [ 1/0. ] [ HEX: 7c00 bits>half ] unit-test
[ -1/0. ] [ HEX: fc00 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 C-STRUCT: halves
{ "half" "tom" } { "half" "tom" }

2
extra/window-controls-demo/window-controls-demo.factor
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