next-line ( lexer -- )
The lexer

Prev:	still-parsing? ( lexer -- ? )
Next:	skip-blank ( lexer -- )

Vocabulary
lexer

Inputs

lexer

a lexer

Outputs
None

Word description
Advances the lexer to the next input line, discarding the remainder of the current line.

Definition

USING: accessors classes kernel math sequences ;

IN: lexer

: next-line ( lexer -- )
    lexer check-instance dup [ line>> ] [ text>> ] bi ?nth "" or
    [ >>line-text ] [ length >>line-length ] bi
    [ 1 + ] change-line 0 >>column drop ;