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

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

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index a3389cd2ea1655d8dd6379065ebba4ef8ce8d41b..66f706eac72c9489b9f83549eb822f53f30c2b36 100644 (file)
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -24,8 +24,8 @@ SYMBOL: +done+
 ERROR: bad-vocab-name name ;
 
 : check-vocab-name ( name -- name )
-    dup string? [ throw-bad-vocab-name ] unless
-    dup [ ":/\\ " member? ] any? [ throw-bad-vocab-name ] when ;
+    dup string? [ bad-vocab-name ] unless
+    dup [ ":/\\ " member? ] any? [ bad-vocab-name ] when ;
 
 TUPLE: vocab-link name ;