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


Vocabulary
tools.image

Inputs
footeran image-footer.union


Outputs
footer.32/footer.64/fan 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 ;