read1-huff ( huffman-decoder -- elt )


Vocabulary
compression.huffman

Inputs
huffman-decoderan object


Outputs
eltan 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