steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modern: disable foo\ as special thing for now.

locals-and-roots
Doug Coleman 2016-06-05 13:54:00 -07:00
parent 398d946a76
commit 50bf308b98
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/modern/modern.factor
View File

@ -326,11 +326,18 @@ ERROR: colon-word-must-be-all-uppercase-or-lowercase n string word ;
dup { [ "!" sequence= ] [ "#!" sequence= ] } 1|| dup { [ "!" sequence= ] [ "#!" sequence= ] } 1||
[ take-comment ] [ merge-slice-til-whitespace make-tag-literal ] if ; [ take-comment ] [ merge-slice-til-whitespace make-tag-literal ] if ;
! XXX: Allow foo\ or just \?
ERROR: backslash-expects-whitespace slice ; ERROR: backslash-expects-whitespace slice ;
: read-backslash ( n string slice -- n' string obj ) : read-backslash ( n string slice -- n' string obj )
2over peek-from blank? [ 2over peek-from blank? [
! \ foo, M\ foo ! \ 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 ! M\N
merge-slice-til-whitespace make-tag-literal merge-slice-til-whitespace make-tag-literal