From 0e1169ceaba99c47f96aba4ba2cbf81ef32fcc91 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 13 Aug 2015 06:52:06 -0700 Subject: [PATCH] alien.libraries: try out throw-foo. --- basis/alien/libraries/libraries.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor index 144cdd5670..5e6d807db4 100755 --- a/basis/alien/libraries/libraries.factor +++ b/basis/alien/libraries/libraries.factor @@ -79,7 +79,8 @@ M: library dispose dll>> [ dispose ] when* ; lookup-library [ abi>> ] [ cdecl ] if* ; : 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 @@ -88,7 +89,7 @@ deploy-libraries [ V{ } clone ] initialize : deploy-library ( name -- ) dup libraries get key? [ 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' )