disambiguate namespaces:set and sets:set.

[factor.git] / basis / compiler / cfg / rpo / rpo.factor

diff --git a/basis/compiler/cfg/rpo/rpo.factor b/basis/compiler/cfg/rpo/rpo.factor
index 0a36c5decce59121cf3eb058b74a1a871f0520ef..402d74d6cb74cc803383503d2070c24b452b1830 100644 (file)
--- a/basis/compiler/cfg/rpo/rpo.factor
+++ b/basis/compiler/cfg/rpo/rpo.factor
@@ -33,7 +33,7 @@ IN: compiler.cfg.rpo
 
 : optimize-basic-block ( bb quot -- )
     over kill-block?>> [ 2drop ] [
-        over basic-block set
+        over basic-block namespaces:set
         change-instructions drop
     ] if ; inline
 
@@ -42,7 +42,7 @@ IN: compiler.cfg.rpo
 
 : analyze-basic-block ( bb quot -- )
     over kill-block?>> [ 2drop ] [
-        [ dup basic-block set instructions>> ] dip call
+        [ dup basic-block namespaces:set instructions>> ] dip call
     ] if ; inline
 
 : simple-analysis ( ... cfg quot: ( ... insns -- ... ) -- ... )