parser: allow escaped word names.

2016-06-06 12:13:42 -07:00 · 2016-06-06 12:13:42 -07:00 · 38f56e39e3
parent 8904b85df1
commit 38f56e39e3
1 changed files with 5 additions and 1 deletions
--- 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 ;