replace-pair ( pair -- new-pair )

Vocabulary

compression.gzip.private

Inputs

pair

an object

Outputs

new-pair

an object

Definition

USING: arrays kernel namespaces sequences ;

IN: compression.gzip.private

: replace-pair ( pair -- new-pair )
    [ first lit-dict get replace-one ]
    [ second dist-dict get replace-one ] bi 2array ;