disambiguate namespaces:set and sets:set.

[factor.git] / basis / prettyprint / sections / sections.factor

diff --git a/basis/prettyprint/sections/sections.factor b/basis/prettyprint/sections/sections.factor
index 581d6757f8b8a0ec473bfec5118c5f76a213b276..8a37a6b72079869110a6a01326a2b3cea8cfb193 100644 (file)
--- a/basis/prettyprint/sections/sections.factor
+++ b/basis/prettyprint/sections/sections.factor
@@ -326,8 +326,8 @@ SYMBOL: next
 : group-flow ( seq -- newseq )
     [
         dup length iota [
-            2dup 1 - swap ?nth prev set
-            2dup 1 + swap ?nth next set
+            2dup 1 - swap ?nth prev namespaces:set
+            2dup 1 + swap ?nth next namespaces:set
             swap nth dup split-before dup , split-after
         ] with each
     ] { } make { t } split harvest ;
@@ -358,10 +358,10 @@ M: block long-section ( block -- )
 
 : make-pprint ( obj quot manifest? -- block manifest/f )
     [
-        0 position set
-        HS{ } clone pprinter-use set
-        V{ } clone recursion-check set
-        V{ } clone pprinter-stack set
+        0 position namespaces:set
+        HS{ } clone pprinter-use namespaces:set
+        V{ } clone recursion-check namespaces:set
+        V{ } clone pprinter-stack namespaces:set
 
         [ over <object call pprinter-block ] dip
         [ pprinter-manifest ] [ f ] if