clean-header ( header -- header' )

Vocabulary

tools.image.private

Inputs

header

an object

Outputs

header'

an object

Definition

USING: accessors kernel math ;

IN: tools.image.private

: clean-header ( header -- header' )
    dup data-size>> zero? [
        0 >>escaped-data-size 0 >>compressed-data-size
        0 >>compressed-code-size
    ] unless ;