build-dicts ( vec -- lit-dict dist-dict )

Vocabulary

compression.gzip.private

Inputs

vec

an object

Outputs

lit-dict	an object
dist-dict	an object

Definition

USING: compression.huffman kernel ;

IN: compression.gzip.private

: build-dicts ( vec -- lit-dict dist-dict )
    [ len-lits generate-canonical-codes ]
    [ dists generate-canonical-codes ] bi ;