check-color ( color-index -- color-index )


Vocabulary
tinyvg

Inputs
color-indexan object


Outputs
color-indexan object


Definition
USING: kernel math namespaces sequences ;

IN: tinyvg

: check-color ( color-index -- color-index )
dup color-table get length <= [ invalid-color ] unless ;