check-filetype ( filetype -- filetype )


Vocabulary
cuesheet

Inputs
filetypean object


Outputs
filetypean object


Definition
USING: kernel sequences ;

IN: cuesheet

: check-filetype ( filetype -- filetype )
dup { "BINARY" "MOTOROLA" "AIFF" "WAVE" "MP3" } member?
[ unknown-filetype ] unless ;