change ERROR: words from throw-foo back to foo.

[factor.git] / basis / alien / libraries / libraries.factor

diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor
index 5e6d807db478d9c4efb84e83ee30d4b32c4b9dad..0232821c2b8339de005c46593a2787ecaf268610 100755 (executable)
--- a/basis/alien/libraries/libraries.factor
+++ b/basis/alien/libraries/libraries.factor
@@ -80,7 +80,7 @@ M: library dispose dll>> [ dispose ] when* ;
 
 : address-of ( name library -- value )
     2dup load-library dlsym-raw
-    [ 2nip ] [ throw-no-such-symbol ] if* ;
+    [ 2nip ] [ no-such-symbol ] if* ;
 
 SYMBOL: deploy-libraries
 
@@ -89,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" throw-no-such-library ] if ;
+    [ "deploy-library failure" no-such-library ] if ;
 
 HOOK: >deployed-library-path os ( path -- path' )