compressable-image? ( object -- ? )

Vocabulary

tools.image

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the compressable-image class.

Definition

USING: accessors kernel math ;

IN: tools.image

: compressable-image? ( object -- ? )
    dup image? [ header>> data-size>> zero? ] [ drop f ] if ;