basis: ERROR: changes.

[factor.git] / basis / vocabs / hierarchy / hierarchy.factor

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index 96b8723e684d46a9a2c45da61da97a9124183fde..7172c461cb71219c22e59ad0ecdeecc1068d6601 100644 (file)
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -34,7 +34,7 @@ M: vocab-prefix vocab-name name>> ;
 ERROR: vocab-root-required root ;
 
 : ensure-vocab-root ( root -- root )
-    dup vocab-roots get member? [ vocab-root-required ] unless ;
+    dup vocab-roots get member? [ throw-vocab-root-required ] unless ;
 
 : ensure-vocab-root/prefix ( root prefix -- root prefix )
     [ ensure-vocab-root ] [ check-vocab-name ] bi* ;