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

[factor.git] / core / vocabs / loader / loader.factor

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 17de3f26d402f9e72fd843c8a819c49891a37bd2..1de8ecabd5f974952607030b6608a0f8e8851e5f 100644 (file)
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -36,7 +36,7 @@ ERROR: not-found-in-roots path ;
     vocab-roots get [ prepend-path exists? ] with find nip ;
 
 M: string vocab-path ( string -- path/f )
-    dup find-root-for [ prepend-path ] [ throw-not-found-in-roots ] if* ;
+    dup find-root-for [ prepend-path ] [ not-found-in-roots ] if* ;
 
 PRIVATE>
 
@@ -165,7 +165,7 @@ PRIVATE>
     [
         drop dup find-vocab-root
         [ (require) ]
-        [ dup lookup-vocab [ drop ] [ throw-no-vocab ] if ]
+        [ dup lookup-vocab [ drop ] [ no-vocab ] if ]
         if
     ] if
 ] require-hook set-global