compress-code ( image -- image' )

Vocabulary

tools.image-compressor

Inputs

image

an image

Outputs

image'

an image

Word description

Compresses code heap

Definition

USING: accessors kernel ;

IN: tools.image-compressor

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