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

[factor.git] / basis / io / directories / search / search.factor

diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index 4357e5cd8c24b8f4be2e189a00c024189f0b3c5e..e0df575bf0bf124042c40addceabf96cce984d92 100644 (file)
--- a/basis/io/directories/search/search.factor
+++ b/basis/io/directories/search/search.factor
@@ -103,7 +103,7 @@ PRIVATE>
 ERROR: file-not-found path bfs? quot ;
 
 : find-file-throws ( path bfs? quot -- path )
-    3dup find-file dup [ 2nip nip ] [ drop file-not-found ] if ; inline
+    3dup find-file [ 2nip nip ] [ file-not-found ] if* ; inline
 
 ERROR: sequence-expected obj ;