(parsing-word-lexer-dump) ( error parsing-word -- )

Vocabulary
lexer

Definition

USING: accessors io kernel math.parser sequences strings ;

IN: lexer

: (parsing-word-lexer-dump) ( error parsing-word -- )
    [
        line>> number>string over line>> number>string length
        32 pad-head ": " append write
    ] [ line-text>> dup string? [ drop "" ] unless print ] bi
    simple-lexer-dump ;