disambiguate namespaces:set and sets:set.

[factor.git] / basis / xml / xml.factor

diff --git a/basis/xml/xml.factor b/basis/xml/xml.factor
index 8e75c5ec7e0c590378ffd4aabb3cfcd6f0658043..b0713eb1531aed7b8b0c3babf3ed947a6f5d410f 100644 (file)
--- a/basis/xml/xml.factor
+++ b/basis/xml/xml.factor
@@ -54,7 +54,7 @@ M: closer process
     <tag> add-child ;
 
 : init-xml-stack ( -- )
-    V{ } clone xml-stack set
+    V{ } clone xml-stack namespaces:set
     f push-xml ;
 
 : default-prolog ( -- prolog )
@@ -125,7 +125,7 @@ TUPLE: pull-xml scope ;
     scope>> [
         text-now? get [ parse-text f ] [
             get-char [ make-tag t ] [ f f ] if
-        ] if text-now? set
+        ] if text-now? namespaces:set
     ] with-variables ;
 
 <PRIVATE
@@ -157,7 +157,7 @@ PRIVATE>
 
 : read-seq ( stream quot n -- seq )
     rot [
-        depth set
+        depth namespaces:set
         init-xml init-xml-stack
         call
         [ process ] xml-loop
@@ -200,7 +200,7 @@ PRIVATE>
 
 : read-dtd ( stream -- dtd )
     [
-        H{ } clone extra-entities set
+        H{ } clone extra-entities namespaces:set
         take-internal-subset
     ] with-state ;