simple-lexer-dump ( error -- )

Vocabulary

lexer.private

Inputs

error

an object

Outputs

None

Definition

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

IN: lexer.private

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