io.standard-paths: add ?find-in-path.

diff --git a/basis/io/standard-paths/standard-paths.factor b/basis/io/standard-paths/standard-paths.factor
index e2ba2333f13d0d39217ad46502548cb3e44486a3..5aac58a1fe1cc79ec8916029cbbd2fad4dbf9e7d 100644 (file)
--- a/basis/io/standard-paths/standard-paths.factor
+++ b/basis/io/standard-paths/standard-paths.factor
@@ -11,9 +11,13 @@ HOOK: find-in-path* os ( string -- path/f )
 HOOK: find-in-applications os ( directories filename -- path )
 
 : find-in-path ( string -- path/f )
-    [ f ]
-    [ [ find-in-path* ] keep over [ append-path ] [ 2drop f ] if ]
-    if-empty ;
+    [ f ] [
+        [ find-in-path* ] keep over
+        [ append-path ] [ 2drop f ] if
+    ] if-empty ;
+
+: ?find-in-path ( string -- path/string )
+    [ find-in-path ] [ or ] bi ;
 
 {
     { [ os windows? ] [ "io.standard-paths.windows" ] }