use ``if*`` instead of ``dup [ ] [ drop ] if``.

[factor.git] / basis / compiler / cfg / copy-prop / copy-prop.factor

diff --git a/basis/compiler/cfg/copy-prop/copy-prop.factor b/basis/compiler/cfg/copy-prop/copy-prop.factor
index 2dab52fe4af11515fef5bad2498a46a9e919be64..50da49adb761bfc83f3d09f5f60c063942b165af 100644 (file)
--- a/basis/compiler/cfg/copy-prop/copy-prop.factor
+++ b/basis/compiler/cfg/copy-prop/copy-prop.factor
@@ -33,7 +33,7 @@ GENERIC: visit-insn ( insn -- )
 
 M: ##copy visit-insn
     [ dst>> ] [ src>> resolve ] bi
-    dup [ record-copy ] [ 2drop ] if ;
+    [ record-copy ] [ drop ] if* ;
 
 : useless-phi ( dst inputs -- ) first record-copy ;