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

modern: less code

modern-harvey3
Doug Coleman 2019-10-16 18:29:16 -05:00
parent 1c4bdd74a6
commit 680cac56c1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/modern/modern.factor
View File

@ -256,7 +256,7 @@ MACRO:: read-matched ( ch -- quot: ( string n tag -- string n' slice' ) )
} 1&& ; } 1&& ;
: read-til-semicolon ( string n slice -- string n' semi ) : 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 swap
! What ended the FOO: .. ; form? ! What ended the FOO: .. ; form?
! Remove the ; from the payload if present ! Remove the ; from the payload if present