uncompress-data ( image -- image' )

Vocabulary

tools.image.compression.private

Inputs

image

an object

Outputs

image'

an object

Definition

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

IN: tools.image.compression.private

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