Revert "parser: disallow quotation in word names"

This reverts commit 759c1dbe6a8ee8198c30506ad873116cbe1ddd65.

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