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