alien.libraries.finder: map-find was what I wanted all along.
parent
987967cf95
commit
ee08a436fd
|
@ -11,8 +11,8 @@ HOOK: find-library* os ( name -- path/f )
|
|||
! try to open a library that is the first name in that list anyway
|
||||
! or "library_not_found" as a last resort for better debugging.
|
||||
: find-library-from-list ( seq -- path/f )
|
||||
dup [ find-library* ] map
|
||||
[ ] find nip [ nip ] [ ?first "library_not_found" or ] if* ;
|
||||
dup [ find-library* ] map-find nip
|
||||
[ nip ] [ ?first "library_not_found" or ] if* ;
|
||||
|
||||
{
|
||||
{ [ os macosx? ] [ "alien.libraries.finder.macosx" ] }
|
||||
|
|
Loading…
Reference in New Issue