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

Revert "alien.libraries.finder: Add utiltity word find-first-library to find a shared library from a list of library stem names." Wrong fix. 

This reverts commit 8cd883be5119683291c2ee6d7ce4fad228b78e26.
db4
Doug Coleman 2014-04-28 01:25:27 -07:00
parent 5c2737785b
commit 093a2bbae0
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,13 +1,10 @@
USING: combinators kernel sequences system vocabs ; USING: combinators system vocabs ;
IN: alien.libraries.finder IN: alien.libraries.finder
HOOK: find-library os ( name -- path/f ) HOOK: find-library os ( name -- path/f )
: find-first-library ( seq -- path/f )
[ find-library ] 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" ] }