replace-0-single ( m len-seq -- new-len-seq )

Vocabulary

compression.gzip.private

Inputs

m	an object
len-seq	an object

Outputs

new-len-seq

an object

Definition

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

IN: compression.gzip.private

:: replace-0-single ( m len-seq -- new-len-seq )
    m 11 < [
        len-seq m 0 <array> 17 m 3 - 3 <bits> >bit-array 2array
        1array replace
    ] [
        len-seq m 0 <array> 18 m 11 - 7 <bits> >bit-array 2array
        1array replace
    ] if ;