From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 17 Aug 2023 22:24:17 +0000 (-0700)
Subject: vocabs: disallow quotation in vocab name
X-Git-Tag: 0.99~91
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=7ea112b8c08815f9cdbd39a8787153acbcfefd41

vocabs: disallow quotation in vocab name
---

diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 31abdc221e..5ca35419ab 100644
--- 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 ff85940770..4c53c199b4 100644
--- 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 ;