-:: (parse-til-line-begins) ( begin-text lexer -- )
- lexer still-parsing? [
- lexer line-text>> begin-text sequence= [
- lexer begin-text advance-same-line
- ] [
- lexer line-text>> % CHAR: \n ,
- lexer next-line
- begin-text lexer (parse-til-line-begins)
- ] if
- ] [
- begin-text bad-heredoc
- ] if ;
-
-: parse-til-line-begins ( begin-text lexer -- seq )
- [ (parse-til-line-begins) ] "" make ;
-