modern: less code

2019-10-16 18:29:16 -05:00 · 2019-10-16 18:29:16 -05:00 · 680cac56c1
parent 1c4bdd74a6
commit 680cac56c1
1 changed files with 1 additions and 1 deletions
--- 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