replace-0-range ( range len-seq -- new-len-seq )

Vocabulary

compression.gzip.private

Inputs

range	an object
len-seq	an object

Outputs

new-len-seq

an object

Definition

USING: kernel sequences ;

IN: compression.gzip.private

:: replace-0-range ( range len-seq -- new-len-seq )
    range empty?
    [ len-seq ] [
        range first range 1 tail len-seq replace-0-range
        replace-0-single
    ] if ;