new-lexer ( text class -- lexer )

Vocabulary

lexer

Inputs

text	an object
class	an object

Outputs

lexer

an object

Definition

USING: accessors kernel splitting strings ;

IN: lexer

: new-lexer ( text class -- lexer )
    [ dup string? [ split-lines ] when ] dip new 0 >>line
    swap >>text V{ } clone >>parsing-words dup next-line ;
    inline