dist-to-bits ( dist -- bits )

Vocabulary

compression.gzip.private

Inputs

dist

an object

Outputs

bits

an object

Definition

USING: arrays bit-arrays kernel math.bits sequences ;

IN: compression.gzip.private

: dist-to-bits ( dist -- bits )
    dup array? [
        [ first 5 <bits> >bit-array reverse ] [ second ] bi
        2array
    ] [ 5 <bits> >bit-array reverse ] if ;