uncompress-code ( image -- image' )


Vocabulary
tools.image.compression.private

Inputs
imagean object


Outputs
image'an object


Definition
USING: accessors kernel tools.image tools.image.compression ;

IN: tools.image.compression.private

: uncompress-code ( image -- image' )
dup uncompressed-code?
[ dup code>> uncompress >>code ] unless ;