oops, forgot a USING

diff --git a/basis/literals/literals.factor b/basis/literals/literals.factor
index ba1da393b1f6fa50f5fc08664b733f8a821cb755..b954d561fa13fd2b5db1e23c5e00f854feebb214 100755 (executable)
--- a/basis/literals/literals.factor
+++ b/basis/literals/literals.factor
@@ -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 ;

diff --git a/extra/half-floats/half-floats-tests.factor b/extra/half-floats/half-floats-tests.factor
index d026ca2933696b854c3cf9f79dd55983292eaf0c..001cc6200b57141968c5f702e9ad7f4a524b763c 100644 (file)
--- a/extra/half-floats/half-floats-tests.factor
+++ b/extra/half-floats/half-floats-tests.factor
@@ -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" }

diff --git a/extra/window-controls-demo/window-controls-demo.factor b/extra/window-controls-demo/window-controls-demo.factor
index 70000c82687ce6d4205cc613b1d3fd531152c24a..aee6337f970a464861ec0ca57dd1409cf2aa385e 100755 (executable)
--- a/extra/window-controls-demo/window-controls-demo.factor
+++ b/extra/window-controls-demo/window-controls-demo.factor
@@ -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