huffman-each ( ... tdesc quot: ( ... huffman-code -- ... ) -- ... )

Vocabulary

compression.huffman.private

Inputs

tdesc	an object
quot	a quotation with stack effect ( ... huffman-code -- ... )

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: compression.huffman.private

:: huffman-each
    ( ... tdesc quot: ( ... huffman-code -- ... ) -- ... )
    <huffman-code> :> code tdesc [
        code next-size
        [ code value<< code clone quot call code next-code ]
        each
    ] each ; inline