clear-code? ( lzw code -- ? )

Vocabulary

compression.lzw

Inputs

lzw	an object
code	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: compression.lzw

: clear-code? ( lzw code -- ? ) swap clear-code>> = ;