read1-jpeg-dc ( decoder -- dc )


Vocabulary
images.jpeg.private

Inputs
decoderan object


Outputs
dcan object


Definition
USING: accessors bitstreams compression.huffman kernel ;

IN: images.jpeg.private

: read1-jpeg-dc ( decoder -- dc )
[ read1-huff dup ] [ bs>> read ] bi sign-extend ;