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

[factor.git] / basis / compiler / tree / dead-code / branches / branches.factor

diff --git a/basis/compiler/tree/dead-code/branches/branches.factor b/basis/compiler/tree/dead-code/branches/branches.factor
index 2ca4ceaa088e941ae83a90736f9605540bbdb7f9..a4c610f36431341115e09535ba64b496d114c586 100644 (file)
--- a/basis/compiler/tree/dead-code/branches/branches.factor
+++ b/basis/compiler/tree/dead-code/branches/branches.factor
@@ -12,7 +12,7 @@ M: #if mark-live-values* look-at-inputs ;
 M: #dispatch mark-live-values* look-at-inputs ;
 
 : look-at-phi ( value outputs inputs -- )
-    [ index ] dip swap dup [ <column> look-at-values ] [ 2drop ] if ;
+    [ index ] dip swap [ <column> look-at-values ] [ drop ] if* ;
 
 M: #phi compute-live-values*
     #! If any of the outputs of a #phi are live, then the