From 680cac56c1a62a9dc4f734ad6d5983f281b42a47 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 16 Oct 2019 18:29:16 -0500 Subject: [PATCH] modern: less code --- extra/modern/modern.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor index 5b924fff89..69328cb36e 100644 --- a/extra/modern/modern.factor +++ b/extra/modern/modern.factor @@ -256,7 +256,7 @@ MACRO:: read-matched ( ch -- quot: ( string n tag -- string n' slice' ) ) } 1&& ; : read-til-semicolon ( string n slice -- string n' semi ) - dup '[ but-last ";" append ";" 2array { "--" ")" } append lex-colon-until ] dip + [ but-last ";" append ";" "--" ")" 4array lex-colon-until ] keep swap ! What ended the FOO: .. ; form? ! Remove the ; from the payload if present