simple-lexer-dump ( error -- )

Vocabulary
lexer

Definition

USING: accessors io kernel math math.parser sequences strings ;

IN: lexer

: simple-lexer-dump ( error -- )
    [ line>> number>string ": " append ]
    [ line-text>> dup string? [ drop "" ] unless ]
    [ column>> 0 or ] tri pick length + 32 <string>
    [ write ] [ print ] [ write "^" print ] tri* ;