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

modern: handle \[[ \[=[

modern-harvey2
Doug Coleman 2017-08-26 13:56:49 -05:00
parent 161a50c0b8
commit 39a9b21e98
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/modern/modern-tests.factor
View File

@ -88,3 +88,6 @@ IN: modern.tests
{ { { "\\" "(" } } } [ "\\ (" string>literals >strings ] unit-test { { { "\\" "(" } } } [ "\\ (" string>literals >strings ] unit-test
{ { "\\[[" } } [ "\\[[" string>literals >strings ] unit-test
{ { "\\[=[" } } [ "\\[=[" string>literals >strings ] unit-test
{ { "\\[==[" } } [ "\\[==[" string>literals >strings ] unit-test

2
extra/modern/modern.factor
View File

@ -275,7 +275,7 @@ ERROR: mismatched-terminator n string slice ;
[ "\"!:[{(<>\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
dup "\\" sequence= [ read-backslash ] when dup "\\" sequence= [ read-backslash ] [ merge-slice-til-whitespace ] if
] [ ] [
(lex-factor) (lex-factor)
] if ] if