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


Vocabulary
compression.gzip.private

Inputs
rangean object
len-seqan object


Outputs
new-len-seqan object


Definition


:: 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 ;