factor: arch -> arch-name. fix breakage caused by other patch.

[factor.git] / extra / compiler / cfg / gvn / avail / avail.factor

diff --git a/extra/compiler/cfg/gvn/avail/avail.factor b/extra/compiler/cfg/gvn/avail/avail.factor
index 4c39caf2b822706ef9b90cd4b882788ffe6ac9e0..2a4b0c2fc72fdb1039d7d2e43ee8d3374eb80ca8 100644 (file)
--- a/extra/compiler/cfg/gvn/avail/avail.factor
+++ b/extra/compiler/cfg/gvn/avail/avail.factor
@@ -10,6 +10,7 @@ compiler.cfg.predecessors
 compiler.cfg.renaming.functor
 compiler.cfg.rpo ;
 FROM: namespaces => set ;
+QUALIFIED: assocs
 IN: compiler.cfg.gvn.avail
 
 : defined ( bb -- vregs )
@@ -39,6 +40,6 @@ M: avail-analysis transfer-set drop defined assoc-union ;
     keep swap [ available-uses? ] [ drop f ] if ; inline
 
 : make-available ( vreg -- )
-    basic-block get avail-ins get [ dupd clone ?set-at ] change-at ;
+    basic-block get avail-ins get [ dupd clone ?set-at ] assocs:change-at ;
 
 RENAMING: >avail [ ] [ dup >avail-vreg swap or ] [ ]