flatten-pair ( pair -- bits )

Vocabulary

compression.gzip.private

Inputs

pair

an object

Outputs

bits

an object

Definition

USING: arrays kernel sequences ;

IN: compression.gzip.private

: flatten-pair ( pair -- bits )
    dup array? [
        [ first flatten-single ] [ second flatten-single ] bi
        append
    ] when ;