write-code ( lzw -- )

Vocabulary

compression.lzw

Inputs

lzw

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: compression.lzw

: write-code ( lzw -- )
    [ lookup-code ] [ output>> ] bi push-all ;