From 39a9b21e986bddccd21167a69e9a61ddc785ad43 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 26 Aug 2017 13:56:49 -0500 Subject: [PATCH] modern: handle \[[ \[=[ --- extra/modern/modern-tests.factor | 3 +++ extra/modern/modern.factor | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/extra/modern/modern-tests.factor b/extra/modern/modern-tests.factor index 981321b450..533df0ed8e 100644 --- a/extra/modern/modern-tests.factor +++ b/extra/modern/modern-tests.factor @@ -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 \ No newline at end of file diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor index 662e4f6359..7c3845f3ee 100644 --- a/extra/modern/modern.factor +++ b/extra/modern/modern.factor @@ -275,7 +275,7 @@ ERROR: mismatched-terminator n string slice ; [ "\"!:[{(<>\s\r\n" slice-til-either ] dip swap [ span-slices ] dip over "\\" head? [ drop - dup "\\" sequence= [ read-backslash ] when + dup "\\" sequence= [ read-backslash ] [ merge-slice-til-whitespace ] if ] [ (lex-factor) ] if