parser: disallow quotation in word names

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 65d20d3f0eb39df14ba87022082b1a72dc2bf463..1acc0b240e51e1ed20c7cf447ae437fc139940ef 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -72,7 +72,8 @@ ERROR: number-expected ;
 ERROR: invalid-word-name string ;
 
 : check-word-name ( string -- string )
-    dup "\"" = [ t ] [ dup string>number ] if
+    CHAR: " over index
+    [ t ] [ dup string>number ] if
     [ invalid-word-name ] when ;
 
 : scan-word-name ( -- string )