read1-huff ( huffman-decoder -- elt )

Vocabulary

compression.huffman

Inputs

huffman-decoder

an object

Outputs

elt

an object

Definition

USING: accessors bitstreams kernel sequences ;

IN: compression.huffman

: read1-huff ( huffman-decoder -- elt )
    16 over [ bs>> peek ] [ rtable>> nth ] bi
    [ size>> swap bs>> seek ] [ value>> ] bi ; inline