compiler.cfg.ssa.destruction.coalescing: new vocab to refactor and

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

diff --git a/basis/compiler/cfg/ssa/destruction/leaders/leaders.factor b/basis/compiler/cfg/ssa/destruction/leaders/leaders.factor
index bc2344de49a75a6fe572302cff82ef76a75f5903..291aadd571aaadb33afe8b5759d92cc4ed5a570e 100644 (file)
--- a/basis/compiler/cfg/ssa/destruction/leaders/leaders.factor
+++ b/basis/compiler/cfg/ssa/destruction/leaders/leaders.factor
@@ -8,3 +8,6 @@ SYMBOL: leader-map
 : leader ( vreg -- vreg' ) leader-map get compress-path ;
 
 : ?leader ( vreg -- vreg' ) [ leader ] keep or ; inline
+
+: leaders ( vreg1 vreg2 -- vreg1' vreg2' )
+    [ leader ] bi@ ;