flatten-block ( bit-arr-seq -- byte-array )

Vocabulary

compression.gzip.private

Inputs

bit-arr-seq

an object

Outputs

byte-array

an object

Definition

USING: accessors arrays combinators sequences ;

IN: compression.gzip.private

: flatten-block ( bit-arr-seq -- byte-array )
    {
        [ headers>> ]
        [ clen>> concat ]
        [ compressed-lens>> flatten-lens ]
        [ compressed-data>> [ flatten-pair ] map concat ]
    } cleave 4array concat ;