issue #358: rename no-current-vocab

2012-06-21 00:37:55 -07:00 · 2012-06-21 00:37:55 -07:00 · 2f167560f1
parent f7e153c075
commit 2f167560f1
1 changed files with 2 additions and 2 deletions
--- 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 ;