validate-bit-depth ( loading-png seq -- loading-png )

Vocabulary

images.png

Inputs

loading-png	an object
seq	an object

Outputs

loading-png

an object

Definition

USING: accessors kernel sequences ;

IN: images.png

: validate-bit-depth ( loading-png seq -- loading-png )
    [ dup bit-depth>> ] dip member?
    [ invalid-color-type/bit-depth ] unless ;