compiler.cfg.ssa.destruction.coalescing: lookup variable once not twice.

[factor.git] / basis / compiler / cfg / ssa / destruction / coalescing / coalescing.factor

diff --git a/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor b/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor
index 80e066beabc0ea65e3c6b46b914afbeb044867df..11aeb9afad33e4fb325d25cd485050e05d1c629c 100644 (file)
--- a/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor
+++ b/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor
@@ -29,7 +29,7 @@ SYMBOL: class-element-map
     2dup swap leader-map get set-at coalesce-elements ;
 
 : vregs-interfere? ( vreg1 vreg2 -- merged/f ? )
-    [ class-element-map get at ] bi@ sets-interfere? ;
+    class-element-map get '[ _ at ] bi@ sets-interfere? ;
 
 ERROR: vregs-shouldn't-interfere vreg1 vreg2 ;