compressed-code? ( header -- ? )

Vocabulary

tools.image.analyzer

Inputs

header

an object

Outputs

?

an object

Definition

USING: accessors kernel math ;

IN: tools.image.analyzer

: compressed-code? ( header -- ? )
    [ code-size>> ] [ compressed-code-size>> ] bi
    [ dup ] when-zero = not ;