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

alien.libraries.finder: rename ?add-library to ?update-library.

locals-and-roots
John Benediktsson 2016-03-29 07:35:45 -07:00
parent 98ed2a8ee5
commit 19466f2d66
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,11 +7,11 @@ HOOK: find-library* os ( name -- path/f )
: find-library ( name -- path/library-not-found )
dup find-library* [ nip ] when* ;
: ?add-library ( name path abi -- )
: ?update-library ( name path abi -- )
pick lookup-library [ dll>> dll-valid? ] [ f ] if* [
3drop
] [
[ find-library ] [ add-library ] bi*
[ find-library ] [ update-library ] bi*
] if ;
! Try to find the library from a list, but if it's not found,