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

alien.libraries: try out throw-foo.

db4
John Benediktsson 2015-08-13 06:52:06 -07:00
parent c9bd438d18
commit 0e1169ceab
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/alien/libraries/libraries.factor
View File

@ -79,7 +79,8 @@ M: library dispose dll>> [ dispose ] when* ;
lookup-library [ abi>> ] [ cdecl ] if* ; lookup-library [ abi>> ] [ cdecl ] if* ;
: address-of ( name library -- value ) : address-of ( name library -- value )
2dup load-library dlsym-raw [ 2nip ] [ no-such-symbol ] if* ; 2dup load-library dlsym-raw
[ 2nip ] [ throw-no-such-symbol ] if* ;
SYMBOL: deploy-libraries SYMBOL: deploy-libraries
@ -88,7 +89,7 @@ deploy-libraries [ V{ } clone ] initialize
: deploy-library ( name -- ) : deploy-library ( name -- )
dup libraries get key? dup libraries get key?
[ deploy-libraries get 2dup member? [ 2drop ] [ push ] if ] [ deploy-libraries get 2dup member? [ 2drop ] [ push ] if ]
[ "deploy-library failure" no-such-library ] if ; [ "deploy-library failure" throw-no-such-library ] if ;
HOOK: >deployed-library-path os ( path -- path' ) HOOK: >deployed-library-path os ( path -- path' )