<huffman-internal> ( left right -- huffman-tree )

Vocabulary

compression.huffman.private

Inputs

left	an object
right	an object

Outputs

huffman-tree

an object

Definition

USING: accessors kernel ;

IN: compression.huffman.private

: <huffman-internal> ( left right -- huffman-tree )
    huffman-tree new swap >>left swap >>right ;