push-parsing-word ( word -- )

Vocabulary
lexer

Definition

USING: accessors kernel namespaces sequences ;

IN: lexer

: push-parsing-word ( word -- )
    lexer-parsing-word new swap >>word lexer get [
        [ line>> >>line ] [ line-text>> >>line-text ]
        [ column>> >>column ] tri
    ] [ parsing-words>> push ] bi ;