From 50bf308b981c08fbfff9676f195b4508485983f6 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 5 Jun 2016 13:54:00 -0700 Subject: [PATCH] modern: disable foo\ as special thing for now. --- core/modern/modern.factor | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/core/modern/modern.factor b/core/modern/modern.factor index 336e08da12..25aaf266d8 100644 --- a/core/modern/modern.factor +++ b/core/modern/modern.factor @@ -326,11 +326,18 @@ ERROR: colon-word-must-be-all-uppercase-or-lowercase n string word ; dup { [ "!" sequence= ] [ "#!" sequence= ] } 1|| [ take-comment ] [ merge-slice-til-whitespace make-tag-literal ] if ; +! XXX: Allow foo\ or just \? ERROR: backslash-expects-whitespace slice ; : read-backslash ( n string slice -- n' string obj ) 2over peek-from blank? [ ! \ foo, M\ foo - [ skip-blank-from slice-til-whitespace drop dup ] dip 1 cut-slice* backslash-literal make-delimited-literal + dup length 1 > [ + ! M\ foo\ + merge-slice-til-whitespace make-tag-literal + ] [ + ! \ + [ skip-blank-from slice-til-whitespace drop dup ] dip 1 cut-slice* backslash-literal make-delimited-literal + ] if ] [ ! M\N merge-slice-til-whitespace make-tag-literal