get-next-code ( code current -- next )

Vocabulary

compression.huffman.private

Inputs

code	an object
current	an object

Outputs

next

an object

Definition

USING: bit-arrays kernel math math.bits sequences ;

IN: compression.huffman.private

: get-next-code ( code current -- next )
    [ reverse bit-array>integer 1 + ] [ length ] bi <bits>
    >bit-array reverse dup length pick length swap -
    [ f ] replicate append nip ;