change-lexer-column ( lexer quot -- )


Vocabulary
lexer

Inputs and outputs
lexera lexer
quota quotation with stack effect ( col line -- newcol )


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 kernel ;

IN: lexer

: change-lexer-column ( lexer quot -- )
[ [ column>> ] [ line-text>> ] bi ] prepose keep column<< ;
inline