valid-image-footer? ( footer -- footer.32/footer.64/f )

Vocabulary

tools.image

Inputs

footer

an embedded-image-footer.union

Outputs

footer.32/footer.64/f

an embedded-image-footer

Word description

returns valid image footer or f

Definition

USING: accessors kernel ;

IN: tools.image

: valid-image-footer? ( footer -- footer.32/footer.64/f )
    dup b32>> dup valid-footer?
    [ nip ] [ drop b64>> [ valid-footer? ] 1guard ] if ;