From dcb71dcea8cb3b71124e30f61aba3e5352e77c81 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 21 Jun 2012 00:37:55 -0700
Subject: [PATCH] issue #358: rename no-current-vocab

---
 core/vocabs/parser/parser.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor
index d0a625b5ae..8f03af23f3 100644
--- 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 ;