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

alien.libraries.finder: map-find was what I wanted all along.

db4
Doug Coleman 2014-07-08 13:13:41 -05:00
parent 987967cf95
commit ee08a436fd
1 changed files with 2 additions and 2 deletions
basis/alien/libraries/finder

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

@ -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" ] }