vocabs.loader: prevent create-vocab if check-vocab fails.

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

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index b1d6e3135958ee473fab8f9bae92639d11d3eb04..7deb2012291459433f9bd7fa9ec85de5b63a5629 100644 (file)
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -159,7 +159,9 @@ M: vocab (require)
 M: vocab-link (require)
     vocab-name (require) ;
 
-M: string (require) create-vocab (require) ;
+M: string (require)
+   dup check-vocab-hook get call( vocab -- )
+    create-vocab (require) ;
 
 PRIVATE>