sync-header ( image -- image' )

Vocabulary

tools.image-compressor

Inputs

image

an image

Outputs

image'

an image

Word description

Sync header from actual data and code sizes

Definition

USING: accessors kernel sequences ;

IN: tools.image-compressor

: sync-header ( image -- image' )
    dup data>> length over header>> compressed-data-size<<
    dup code>> length over header>> compressed-code-size<< ;