inc-line# ( -- )

Vocabulary

tools.hexdump.private

Inputs

None

Outputs

None

Definition

USING: combinators kernel math sequences.private ;

IN: tools.hexdump.private

: inc-line# ( -- )
    7
    [ 48 = over 0 > and ] [
        1 - dup line#
        [ { { 57 [ 97 ] } { 102 [ 48 ] } [ 1 + ] } case dup ]
        change-nth-unsafe
    ] do while drop ;