vocabs: disallow quotation in vocab name

diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 31abdc221e30bf636486812aca3c20a543acf87a..5ca35419abc4e6e503a078f3599c65c72238886d 100644 (file)
--- a/basis/debugger/debugger.factor
+++ b/basis/debugger/debugger.factor
@@ -202,7 +202,7 @@ M: bad-slot-value summary drop "Bad store to specialized slot" ;
 
 M: bad-slot-name summary drop "Bad slot name in object literal" ;
 
-M: bad-vocab-name summary drop "Vocab name cannot contain \":/\\ \"" ;
+M: bad-vocab-name summary drop "Vocab name cannot contain ':/\\ \"'" ;
 
 M: no-math-method summary
     drop "No suitable arithmetic method" ;

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index ff85940770438a59a21acda6472d0a0665ae0e05..4c53c199b47def890b1255d152a95692115e426c 100644 (file)
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -23,7 +23,7 @@ ERROR: bad-vocab-name name ;
 
 : check-vocab-name ( name -- name )
     dup string? [ bad-vocab-name ] unless
-    dup [ ":/\\ " member? ] any? [ bad-vocab-name ] when ;
+    dup [ ":/\\ \"" member? ] any? [ bad-vocab-name ] when ;
 
 TUPLE: vocab-link name ;