From a2eb7b854d712d533a0fcbac16f753a93043318c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 26 Aug 2017 13:26:51 -0500
Subject: [PATCH] core: SYNTAX: should allow \FOO words.

---
 core/parser/parser.factor | 11 ++++++++++-
 core/syntax/syntax.factor |  2 +-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 2e7540c0c6..6e526d0034 100644
--- a/core/parser/parser.factor
+++ b/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 )
diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index ac419a9ab6..22d8a42540 100644
--- a/core/syntax/syntax.factor
+++ b/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