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

modern: Add some more terminators.

modern-harvey2
Doug Coleman 2017-08-26 01:42:04 -05:00
parent acfb3a8992
commit f049487021
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/modern/modern.factor
View File

@ -152,6 +152,9 @@ MACRO:: read-matched ( ch -- quot: ( n string tag -- n' string slice' ) )
: terminator? ( slice -- ? ) : terminator? ( slice -- ? )
{ {
[ ";" sequence= ] [ ";" sequence= ]
[ "]" sequence= ]
[ "}" sequence= ]
[ ")" sequence= ]
} 1|| ; } 1|| ;
ERROR: token-expected n string obj ; ERROR: token-expected n string obj ;