check-header ( header -- header/* )

Vocabulary

tools.image-uncompressor

Inputs

header

an object

Outputs

header/*

an object

Definition

USING: accessors kernel ;

IN: tools.image-uncompressor

: check-header ( header -- header/* )
    [
        [ magic>> image-header-magic = ]
        [ version>> image-header-version = ] bi and
        [ unsupported-image-header ] unless
    ] keep ;