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

[factor.git] / basis / stack-checker / branches / branches.factor

diff --git a/basis/stack-checker/branches/branches.factor b/basis/stack-checker/branches/branches.factor
index 5eab8a11bc5a4cc7bfb8375e367358f2b5c977ea..af1d8d31a4499d37f026d644927f489016eae01e 100644 (file)
--- a/basis/stack-checker/branches/branches.factor
+++ b/basis/stack-checker/branches/branches.factor
@@ -15,7 +15,7 @@ SYMBOLS: +bottom+ +top+ ;
 : unify-inputs ( max-input-count input-count meta-d -- new-meta-d )
     ! Introduced values can be anything, and don't unify with
     ! literals.
-    dup [ [ - +top+ <repetition> ] dip append ] [ 3drop f ] if ;
+    [ [ - +top+ <repetition> ] dip append ] [ 2drop f ] if* ;
 
 : pad-with-bottom ( seq -- newseq )
     ! Terminated branches are padded with bottom values which