more H{ } make fixes.

diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor
index 7c150612f9adf43e81df30642faf71a887ce2acc..ddda96afcadad6475d3c33d6a0ff1bff3c7203f2 100644 (file)
--- a/basis/http/http-tests.factor
+++ b/basis/http/http-tests.factor
@@ -373,10 +373,10 @@ SYMBOL: a
 
 [ "4" ] [
     [
-        "4" "a" set
-        "http://localhost" add-addr "__u" set
-        "session-id" get session-id-key set
-    ] H{ } make-assoc
+        "4" "a" ,,
+        "http://localhost" add-addr "__u" ,,
+        "session-id" get session-id-key ,,
+    ] H{ } make
     "http://localhost/" add-addr <post-request> "cookies" get >>cookies http-request nip test-a
 ] unit-test
 
@@ -385,10 +385,10 @@ SYMBOL: a
 ! Test flash scope
 [ "xyz" ] [
     [
-        "xyz" "a" set
-        "http://localhost" add-addr "__u" set
-        "session-id" get session-id-key set
-    ] H{ } make-assoc
+        "xyz" "a" ,,
+        "http://localhost" add-addr "__u" ,,
+        "session-id" get session-id-key ,,
+    ] H{ } make
     "http://localhost/" add-addr <post-request> "cookies" get >>cookies http-request nip test-a
 ] unit-test
 

diff --git a/basis/match/match.factor b/basis/match/match.factor
index 2c5fdf5a017dcf283999150e3110f79277395887..c9f9c0c2211d07e082d6f9143036898b92f7430b 100644 (file)
--- a/basis/match/match.factor
+++ b/basis/match/match.factor
@@ -23,7 +23,7 @@ SYNTAX: MATCH-VARS: ! vars ...
     dup word? [ "match-var" word-prop ] [ drop f ] if ;
 
 : set-match-var ( value var -- ? )
-    dup namespace key? [ get = ] [ set t ] if ;
+    dup building get key? [ get = ] [ ,, t ] if ;
 
 : (match) ( value1 value2 -- matched? )
     {
@@ -40,7 +40,7 @@ SYNTAX: MATCH-VARS: ! vars ...
     } cond ;
 
 : match ( value1 value2 -- bindings )
-    [ (match) ] H{ } make-assoc swap [ drop f ] unless ;
+    [ (match) ] H{ } make swap [ drop f ] unless ;
 
 MACRO: match-cond ( assoc -- )
     <reversed>
@@ -73,7 +73,7 @@ MACRO: match-cond ( assoc -- )
         2dup length head over match
         [ swap ?1-tail ] [ [ rest ] dip (match-first) ] ?if
     ] if ;
-    
+
 : match-first ( seq pattern-seq -- bindings )
     (match-first) drop ;
 

diff --git a/extra/game/models/obj/obj.factor b/extra/game/models/obj/obj.factor
index eef576d419745fb7b3b6e34ed46b79330e67e0fe..e2b42cd4482dda261a3831cadf8aec8ad1e30c08 100644 (file)
--- a/extra/game/models/obj/obj.factor
+++ b/extra/game/models/obj/obj.factor
@@ -151,14 +151,14 @@ PRIVATE>
 M: obj-models stream>models
     drop
     [
-        V{ } clone vp set
-        V{ } clone vt set
-        V{ } clone vn set
-        V{ } clone models set
-        V{ } V{ } H{ } <indexed-seq> current-model set
-        f current-material set
-        f material-dictionary set
-    ] H{ } make-assoc 
+        V{ } clone vp ,,
+        V{ } clone vt ,,
+        V{ } clone vn ,,
+        V{ } clone models ,,
+        V{ } V{ } H{ } <indexed-seq> current-model ,,
+        f current-material ,,
+        f material-dictionary ,,
+    ] H{ } make
     [
         [ line>obj ] each-stream-line push-current-model
         models get