     { header riff-chunk-header }
     { body uchar[0] } ;
 
-ERROR: invalid-wav-file ;
+ERROR: invalid-audio-file ;
 
 : ensured-read ( count -- output/f )
     [ read ] keep over length = [ drop f ] unless ;
 : ensured-read* ( count -- output )
-    ensured-read [ invalid-wav-file ] unless* ;
+    ensured-read [ invalid-audio-file ] unless* ;
 
 : read-chunk ( -- byte-array/f )
     4 ensured-read [ 4 ensured-read* dup le> ensured-read* 3append ] [ f ] if* ;

USING: alien.c-types alien.syntax audio combinators
combinators.short-circuit io io.binary io.encodings.binary
io.files io.streams.byte-array kernel locals math
sequences alien alien.data classes.struct accessors ;

        { [ dup FMT-MAGIC  wav-fmt-chunk  check-chunk ] [ wav-fmt-chunk  memory>struct fmt!  ] }
        { [ dup DATA-MAGIC wav-data-chunk check-chunk ] [ wav-data-chunk memory>struct data! ] }
    } cond ] while drop
    fmt data 2dup and [ invalid-audio-file ] unless ;

: verify-wav ( chunk -- )
    {
        [ RIFF-MAGIC id= ]
        [ riff-chunk memory>struct format>> 4 memory>byte-array WAVE-MAGIC id= ]
    } 1&&
    [ invalid-audio-file ] unless ;

: convert-data-endian ( audio -- audio )
    little-endian [
        dup sample-bits>> {
            { 16 [ [ 2 seq>native-endianness ] change-data ] }
            { 32 [ [ 4 seq>native-endianness ] change-data ] }
            [ drop ]
        } case
    ] with-endianness ;

: (read-wav) ( -- audio )
    read-wav-chunks
