compress-data ( image -- image' )

Vocabulary

tools.image-compressor

Inputs

image

an image

Outputs

image'

an image

Word description

Compresses data heap

Definition

USING: accessors kernel ;

IN: tools.image-compressor

: compress-data ( image -- image' )
    dup uncompressed-data? [ dup data>> compress >>data ] when ;