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

Vocabulary

lexer.private

Inputs

error	an object
parsing-word	an object

Outputs

error

an object

Definition

USING: accessors io kernel math.parser sequences ;

IN: lexer.private

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