steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2015-06-01 14:26:38 -07:00
parent 2884f8dabe
commit 0d7c3c5291
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/io/standard-paths/standard-paths.factor
View File

@ -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" ] }