replace-all-runs ( 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-all-runs ( range len-seq -- new-len-seq )
    range empty?
    [ len-seq ] [
        range first range 1 tail len-seq replace-all-runs
        replace-runs
    ] if ;