issue #358: rename no-current-vocab

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index d0a625b5ae651fa452bd5bbb1e30d0395a8fccd6..8f03af23f38585f5c884fa3523e4a62bb8ba6183 100644 (file)
--- a/core/vocabs/parser/parser.factor
+++ b/core/vocabs/parser/parser.factor
@@ -86,10 +86,10 @@ PRIVATE>
         [ set-current-vocab ] dip call
     ] with-variable ; inline
 
-TUPLE: no-current-vocab ;
+TUPLE: no-current-vocab-error ;
 
 : no-current-vocab ( -- vocab )
-    \ no-current-vocab boa
+    \ no-current-vocab-error boa
     { { "Define words in scratchpad vocabulary" "scratchpad" } }
     throw-restarts dup set-current-vocab ;