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

modern: minor cleanup

locals-and-roots
Doug Coleman 2016-06-13 13:34:30 -07:00
parent 55bc0cb1b2
commit 157297c190
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/modern/modern.factor
View File

@ -387,9 +387,8 @@ ERROR: backslash-expects-whitespace slice ;
! If the slice is 0 width, we stopped on whitespace.
! Advance the index and read again!
: read-token-or-whitespace ( n string slice -- n' string slice )
dup length 0 =
[ drop [ 1 + ] dip lex-factor ]
[ make-tag-literal ] if ;
[ [ 1 + ] dip lex-factor ]
[ make-tag-literal ] if-empty ;
ERROR: mismatched-terminator n string slice ;
: read-terminator ( n string slice -- n' string slice )