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

modern: Fix \\ to do nothing.

modern-harvey3-triple
Doug Coleman 2018-08-03 22:35:13 -04:00
parent 73644eda85
commit 1f2d755c0f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/modern/modern.factor
View File

@ -153,7 +153,7 @@ ERROR: unexpected-terminator n string slice ;
: read-lowercase-colon ( n string slice -- n' string lowercase-colon ) : read-lowercase-colon ( n string slice -- n' string lowercase-colon )
dup [ char: \: = ] count-tail dup [ char: \: = ] count-tail
'[ '[
_ [ lex-factor ] replicate ensure-no-false dup [ token-expected ] unless _ [ slice-til-non-whitespace drop [ lex-factor ] dip swap 2array ] replicate ensure-no-false dup [ token-expected ] unless
dup terminator? [ unexpected-terminator ] when dup terminator? [ unexpected-terminator ] when
] dip swap 2array ; ] dip swap 2array ;
@ -347,8 +347,9 @@ DEFER: lex-factor-top*
[ "\"!:[{(<>\s\r\n" slice-til-either ] dip swap [ span-slices ] dip [ "\"!:[{(<>\s\r\n" slice-til-either ] dip swap [ span-slices ] dip
over "\\" head? [ over "\\" head? [
drop drop
! \\ ! done, \ turns parsing off, \\ is complete token
! \ foo ! \ foo
dup [ char: \\ = ] all? [ (read-backslash) ] [ merge-slice-til-whitespace ] if dup "\\" sequence= [ (read-backslash) ] [ merge-slice-til-whitespace ] if
] [ ] [
! foo\ or foo\bar (?) ! foo\ or foo\bar (?)
over "\\" tail? [ drop (read-backslash) ] [ lex-factor-top* ] if over "\\" tail? [ drop (read-backslash) ] [ lex-factor-top* ] if