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

multiline: fix lexer eof detection.

db4
John Benediktsson 2014-05-19 21:10:31 -07:00
parent 8645b1db49
commit afdec2de61
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/multiline/multiline.factor
View File

@ -12,7 +12,7 @@ ERROR: bad-heredoc identifier ;
lexer get [ line-text>> ] [ column>> ] bi tail ; lexer get [ line-text>> ] [ column>> ] bi tail ;
: next-line-text ( -- str ) : next-line-text ( -- str )
lexer get dup next-line line-text>> ; lexer get [ next-line ] [ line-text>> ] bi ;
: (parse-here) ( -- ) : (parse-here) ( -- )
next-line-text [ next-line-text [
@ -38,9 +38,12 @@ SYNTAX: STRING:
<PRIVATE <PRIVATE
: lexer-eof? ( lexer -- ? )
[ line>> ] [ text>> length ] bi <= ;
:: (scan-multiline-string) ( i end -- j ) :: (scan-multiline-string) ( i end -- j )
lexer get line-text>> :> text lexer get line-text>> :> text
text [ lexer get lexer-eof? [
end text i start* [| j | end text i start* [| j |
i j text subseq % j end length + i j text subseq % j end length +
] [ ] [