code>old-code ( lzw -- lzw )


Vocabulary
compression.lzw

Inputs
lzwan object


Outputs
lzwan object


Definition
USING: accessors kernel ;

IN: compression.lzw

: code>old-code ( lzw -- lzw ) dup code>> >>old-code ;