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

alien.libraries.finder: Add find-library-from-list utility word.

db4
Doug Coleman 2014-07-08 12:21:50 -05:00
parent a8b78071ff
commit 77f806d6c5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/alien/libraries/finder/finder.factor
View File

@ -1,5 +1,5 @@
USING: combinators kernel sequences system vocabs
USING: combinators kernel system vocabs alien.libraries ; alien.libraries ;
IN: alien.libraries.finder IN: alien.libraries.finder
HOOK: find-library* os ( name -- path/f ) HOOK: find-library* os ( name -- path/f )
@ -7,6 +7,9 @@ HOOK: find-library* os ( name -- path/f )
: find-library ( name -- path/library-not-found ) : find-library ( name -- path/library-not-found )
dup find-library* [ nip ] when* ; dup find-library* [ nip ] when* ;
: find-library-from-list ( seq -- path/f )
[ find-library* ] map [ ] find nip ;
{ {
{ [ os macosx? ] [ "alien.libraries.finder.macosx" ] } { [ os macosx? ] [ "alien.libraries.finder.macosx" ] }
{ [ os linux? ] [ "alien.libraries.finder.linux" ] } { [ os linux? ] [ "alien.libraries.finder.linux" ] }