alien.libraries.finder: Add find-library-from-list utility word.
parent
a8b78071ff
commit
77f806d6c5
|
@ -1,11 +1,14 @@
|
|||
|
||||
USING: combinators kernel system vocabs alien.libraries ;
|
||||
USING: combinators kernel sequences system vocabs
|
||||
alien.libraries ;
|
||||
IN: alien.libraries.finder
|
||||
|
||||
HOOK: find-library* os ( name -- path/f )
|
||||
|
||||
: find-library ( name -- path/library-not-found )
|
||||
dup find-library* [ nip ] when* ;
|
||||
|
||||
: find-library-from-list ( seq -- path/f )
|
||||
[ find-library* ] map [ ] find nip ;
|
||||
|
||||
{
|
||||
{ [ os macosx? ] [ "alien.libraries.finder.macosx" ] }
|
||||
|
|
Loading…
Reference in New Issue