steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

die if wav fmt or data chunk is missing

db4
Joe Groff 2009-04-29 08:40:31 -05:00
parent aa3025ce23
commit 4038d30e7e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/audio/wav/wav.factor
View File

@ -59,7 +59,7 @@ ERROR: invalid-wav-file ;
{ [ dup FMT-MAGIC "wav-fmt-chunk" heap-size check-chunk ] [ fmt! ] } { [ dup FMT-MAGIC "wav-fmt-chunk" heap-size check-chunk ] [ fmt! ] }
{ [ dup DATA-MAGIC "wav-data-chunk" heap-size check-chunk ] [ data! ] } { [ dup DATA-MAGIC "wav-data-chunk" heap-size check-chunk ] [ data! ] }
} cond ] while drop } cond ] while drop
fmt data ; fmt data 2dup and [ invalid-wav-file ] unless ;
: verify-wav ( chunk -- ) : verify-wav ( chunk -- )
{ {