stored-block ( reader output -- )

Vocabulary

compression.deflate.private

Inputs

reader	an object
output	an object

Outputs

None

Definition

USING: bitstreams compression.deflate kernel math sequences ;

IN: compression.deflate.private

:: stored-block ( reader output -- )
    8 reader align 16 reader read-bits :> n 16 reader read-bits
    n 65535 bitxor =
    [ "invalid stored block length" invalid-deflate ] unless n
    [ 8 reader read-bits output push ] times ;