add-to-table ( seq lzw -- )

Vocabulary

compression.lzw

Inputs

seq	an object
lzw	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: compression.lzw

: add-to-table ( seq lzw -- )
    [ table>> push ] [ maybe-increment-code-size 2drop ] 2bi ;