finish-bits ( writer -- bytes )

Vocabulary

compression.deflate.private

Inputs

writer

an object

Outputs

bytes

an object

Definition

USING: accessors byte-arrays kernel math sequences ;

IN: compression.deflate.private

:: finish-bits ( writer -- bytes )
    writer used>> 0 >
    [ writer buffer>> writer bytes>> push ] when
    writer bytes>> >byte-array ;