Fix test failures

diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor
index db46f1eac5928cef268a73407140e486ac9168b2..6da32efdef5b51e87ab5f022438a4af049a5765a 100755 (executable)
--- a/basis/http/http-tests.factor
+++ b/basis/http/http-tests.factor
@@ -25,7 +25,7 @@ blah
 
 [
     T{ request
-        { url T{ url path: "/bar" } }
+        { url T{ url { path "/bar" } } }
         { method "POST" }
         { version "1.1" }
         { header H{ { "some-header" "1; 2" } { "content-length" "4" } { "content-type" "application/octet-stream" } } }

diff --git a/extra/cfdg/cfdg.factor b/extra/cfdg/cfdg.factor
index 434ecd59f52d1159a89bcac8360d7723622be31e..121c835105ba959ebe9c831509515c0dc43fd3c5 100644 (file)
--- a/extra/cfdg/cfdg.factor
+++ b/extra/cfdg/cfdg.factor
@@ -159,7 +159,7 @@ MACRO: rule ( seq -- quot ) [rule] ;
 
 VAR: background
 
-: set-initial-background ( -- ) T{ hsva syntax:f 0 0 1 1 } clone >self ;
+: set-initial-background ( -- ) T{ hsva f 0 0 1 1 } clone >self ;
 
 : set-background ( -- )
   set-initial-background
@@ -174,7 +174,7 @@ VAR: viewport ! { left width bottom height }
 
 VAR: start-shape
 
-: set-initial-color ( -- ) T{ hsva syntax:f 0 0 0 1 } clone >self ;
+: set-initial-color ( -- ) T{ hsva f 0 0 0 1 } clone >self ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -245,7 +245,7 @@ SYMBOL: the-slate
     C[ dlist get [ dlist get 1 glDeleteLists ] when ] >>ungraft
   <handler>
     H{ } clone
-      T{ key-down syntax:f syntax:f "ENTER" } C[ drop rebuild ] swap pick set-at
+      T{ key-down f f "ENTER" } C[ drop rebuild ] swap pick set-at
       T{ button-down } C[ drop rebuild ] swap pick set-at
     >>table ;