code-in-table? ( lzw -- ? )

Vocabulary

compression.lzw

Inputs

lzw

an object

Outputs

?

an object

Definition

USING: accessors kernel math sequences ;

IN: compression.lzw

: code-in-table? ( lzw -- ? )
    [ code>> ] [ table>> length ] bi < ;