next-size ( huffman-code -- )

Vocabulary

compression.huffman.private

Inputs

huffman-code

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: compression.huffman.private

: next-size ( huffman-code -- )
    [ 1 + ] change-size [ 2 * ] change-code drop ; inline