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

db4
Doug Coleman 2014-04-28 00:38:39 -07:00
parent 32cd600ffb
commit ce9db9fb84
1 changed files with 4 additions and 1 deletions

View File

@ -1,10 +1,13 @@
USING: combinators system vocabs ;
USING: combinators kernel sequences system vocabs ;
IN: alien.libraries.finder
HOOK: find-library os ( name -- path/f )
: find-first-library ( seq -- path/f )
[ find-library ] find nip ;
{
{ [ os macosx? ] [ "alien.libraries.finder.macosx" ] }
{ [ os linux? ] [ "alien.libraries.finder.linux" ] }