handle-clear-code ( lzw -- )

Vocabulary

compression.lzw

Inputs

lzw

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: compression.lzw

: handle-clear-code ( lzw -- )
    reset-lzw-uncompress [
        >>code [ write-code ] [ code>old-code ] bi
        lzw-uncompress-char
    ] lzw-process-next-code ;