change ERROR: words from throw-foo back to foo.

[factor.git] / extra / audio / chunked-file / chunked-file.factor

diff --git a/extra/audio/chunked-file/chunked-file.factor b/extra/audio/chunked-file/chunked-file.factor
index 01f2d9b109cf374e0a36b5b82a7aa1517433857a..271e56b1714baf66d19ab950a2fa528ee8f53357 100644 (file)
--- a/extra/audio/chunked-file/chunked-file.factor
+++ b/extra/audio/chunked-file/chunked-file.factor
@@ -8,7 +8,7 @@ ERROR: invalid-audio-file ;
 : ensured-read ( count -- output/f )
     [ read ] keep over length = [ drop f ] unless ;
 : ensured-read* ( count -- output )
-    ensured-read [ throw-invalid-audio-file ] unless* ;
+    ensured-read [ invalid-audio-file ] unless* ;
 
 : read-chunk ( -- byte-array/f )
     4 ensured-read [ 4 ensured-read* dup endian> ensured-read* 3append ] [ f ] if* ;