factor: use ??if instead of ?if-old

[factor.git] / basis / compiler / cfg / value-numbering / value-numbering.factor

diff --git a/basis/compiler/cfg/value-numbering/value-numbering.factor b/basis/compiler/cfg/value-numbering/value-numbering.factor
index cb48285f1f0fab80318dbe0df26bf1553670e98e..168024412b6e9279258f48884860caa46e99c53e 100644 (file)
--- a/basis/compiler/cfg/value-numbering/value-numbering.factor
+++ b/basis/compiler/cfg/value-numbering/value-numbering.factor
@@ -30,16 +30,17 @@ GENERIC: process-instruction ( insn -- insn' )
     insn ;
 
 : check-redundancy ( insn -- insn' )
-    dup >expr dup exprs>vns get at
-    [ redundant-instruction ] [ useful-instruction ] ?if ;
+    dup >expr
+    [ exprs>vns get at ]
+    [ redundant-instruction ] [ useful-instruction ] ??if ;
 
 M: insn process-instruction
-    dup rewrite [ process-instruction ] [ ] ?if ;
+    [ rewrite ] [ process-instruction ] ?when ;
 
 M: foldable-insn process-instruction
-    dup rewrite
+    [ rewrite ]
     [ process-instruction ]
-    [ dup defs-vregs length 1 = [ check-redundancy ] when ] ?if ;
+    [ dup defs-vregs length 1 = [ check-redundancy ] when ] ??if ;
 
 M: ##copy process-instruction
     dup [ src>> vreg>vn ] [ dst>> ] bi set-vn ;