check-flag ( flag -- flag )


Vocabulary
cuesheet

Inputs
flagan object


Outputs
flagan object


Definition
USING: kernel sequences ;

IN: cuesheet

: check-flag ( flag -- flag )
dup { "DCP" "4CH" "PRE" "SCMS" "DATA" } member?
[ unknown-flag ] unless ;