core: SYNTAX: should allow \FOO words.

core/parser/parser.factor

@@ -4,7 +4,7 @@ USING: accessors arrays assocs classes combinators
 compiler.units continuations definitions effects io
 io.encodings.utf8 io.files kernel lexer math.parser namespaces
 parser.notes quotations sequences sets slots source-files
-vectors vocabs vocabs.parser words words.symbol ;
+splitting vectors vocabs vocabs.parser words words.symbol ;
 IN: parser
 
 : location ( -- loc )
@@ -87,6 +87,15 @@ ERROR: invalid-word-name string ;
 : scan-new-word ( -- word )
     scan-new dup reset-generic ;
 
+: scan-syntax-word-name ( -- string )
+    scan-word-name "\\" ?head drop ;
+
+: scan-new-syntax ( -- word )
+    scan-syntax-word-name create-word-in ;
+
+: scan-new-syntax-word ( -- word )
+    scan-new-syntax dup reset-generic ;
+
 ERROR: staging-violation word ;
 
 : (execute-parsing) ( accum word -- accum )

core/syntax/syntax.factor

@@ -120,7 +120,7 @@ IN: bootstrap.syntax
     "deprecated" [ last-word make-deprecated ] define-core-syntax
 
     "SYNTAX:" [
-        scan-new-word
+        scan-new-syntax-word
         mark-top-level-syntax
         parse-definition define-syntax
     ] define-core-syntax