new-lexer ( text class -- lexer )

Vocabulary

lexer

Inputs

text	an object
class	an object

Outputs

lexer

an object

Definition

USING: accessors kernel ;

IN: lexer

: new-lexer ( text class -- lexer )
    new 0 >>line swap >>text V{ } clone >>parsing-words
    dup next-line ; inline