vec-to-codes ( vec -- new-vec )

Vocabulary

compression.gzip.private

Inputs

vec

an object

Outputs

new-vec

an object

Definition

USING: arrays kernel namespaces sequences ;

IN: compression.gzip.private

: vec-to-codes ( vec -- new-vec )
    [
        dup array?
        [ replace-pair ] [ lit-dict get replace-one ] if
    ] map ;