compress-fixed ( byte-array -- byte-array )


Vocabulary
compression.gzip

Inputs
byte-arrayan object


Outputs
byte-arrayan object


Definition
USING: accessors bit-arrays compression.gzip.private sequences ;

IN: compression.gzip

: compress-fixed ( byte-array -- byte-array )
(compress-fixed) [ flatten-pair ] map concat
?{ t t f } prepend underlying>> gzip-header prepend
B{ 0 0 } append ;