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

[factor.git] / core / vocabs / parser / parser.factor

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index 3751db3fba33f654b6652703263a06294ecd9ef9..5cf59fdaf5ed59b037595d56f13461dff4c43d72 100644 (file)
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -201,7 +201,7 @@ TUPLE: ambiguous-use-error words ;
 PRIVATE>
 
 : search-manifest ( name manifest -- word/f )
-    2dup qualified-search dup [ 2nip ] [ drop vocab-search ] if ;
+    2dup qualified-search [ 2nip ] [ vocab-search ] if* ;
 
 : search ( name -- word/f )
     manifest get search-manifest ;