From d4e3adca57224bb960c3888d9f84e694f5343370 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 15 Jun 2015 09:11:16 -0700
Subject: [PATCH] compiler.cfg.ssa.destruction.coalescing: lookup variable once
 not twice.

---
 basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor b/basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor
index 80e066beab..11aeb9afad 100644
--- 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 ;