(parse-here) ( lexer -- )

Vocabulary

multiline.private

Inputs

lexer

an object

Outputs

None

Definition

USING: kernel lexer make ;

IN: multiline.private

: (parse-here) ( lexer -- )
    dup next-line-text
    [ dup ";" = [ drop next-line ] [ % 10 , (parse-here) ] if ]
    [ ";" throw-unexpected-eof ] if ;