disambiguate namespaces:set and sets:set.

[factor.git] / basis / compiler / cfg / loop-detection / loop-detection.factor

diff --git a/basis/compiler/cfg/loop-detection/loop-detection.factor b/basis/compiler/cfg/loop-detection/loop-detection.factor
index 7e4ccdac8fc854b9dbeee2994d892894fb6ee3de..672c0b24f2ca135f9d2ba0191dbf5940d56963a5 100644 (file)
--- a/basis/compiler/cfg/loop-detection/loop-detection.factor
+++ b/basis/compiler/cfg/loop-detection/loop-detection.factor
@@ -55,13 +55,13 @@ SYMBOL: loop-nesting
 : compute-loop-nesting ( -- )
     loops get H{ } clone [
         [ values ] dip '[ blocks>> members [ _ inc-at ] each ] each
-    ] keep loop-nesting set ;
+    ] keep loop-nesting namespaces:set ;
 
 : detect-loops ( cfg -- cfg' )
-    H{ } clone loops set
-    HS{ } clone visited set
-    HS{ } clone active set
-    H{ } clone loop-nesting set
+    H{ } clone loops namespaces:set
+    HS{ } clone visited namespaces:set
+    HS{ } clone active namespaces:set
+    H{ } clone loop-nesting namespaces:set
     [ needs-predecessors ]
     [ entry>> find-loop-headers process-loop-headers compute-loop-nesting ]
     [ ] tri ;