change-lexer-column ( ..a lexer quot: ( ..a col line -- ..b newcol ) -- ..b )

Vocabulary

lexer

Inputs

lexer	a lexer
quot	a quotation with stack effect ( ..a col line -- ..b newcol )

Outputs

None

Word description

Applies a quotation to the current column and line text to produce a new column, and moves the lexer position.

Definition

USING: accessors classes kernel ;

IN: lexer

: change-lexer-column
    ( ..a lexer quot: ( ..a col line -- ..b newcol ) -- ..b )
    [ lexer check-instance [ column>> ] [ line-text>> ] bi ]
    prepose keep column<< ; inline