From 38f56e39e3ae6d6c62352ce7998d4c4f42d0a323 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 6 Jun 2016 12:13:42 -0700
Subject: [PATCH] parser: allow escaped word names.

---
 core/parser/parser.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 56424c9d15..16bb6bde86 100644
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -109,7 +109,11 @@ ERROR: staging-violation word ;
     ] when ;
 
 : scan-parsing-word ( -- word )
-    scan-object dup wrapper? [ wrapped>> ] when ;
+    ?scan-token dup "\\" = [
+        drop scan-word
+    ] [
+        parse-word
+    ] if ;
 
 ERROR: classoid-expected object ;