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

alien.libraries.finder: How many patches does it take... I was dropping the wrong value from map-find.

db4
Doug Coleman 2014-07-08 11:58:34 -07:00
parent 710a7c1a21
commit d578ca7959
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,7 +11,7 @@ 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
dup [ find-library* ] map-find drop
[ nip ] [ ?first "library_not_found" or ] if* ;
{