factor: trim using lists

[factor.git] / extra / audio / loader / loader.factor

diff --git a/extra/audio/loader/loader.factor b/extra/audio/loader/loader.factor
index ba2a346f7d39e701b86a2435bc1978179494fc6b..c3774712f3284e80fd63ed48d73cef1f5b8ea20a 100644 (file)
--- a/extra/audio/loader/loader.factor
+++ b/extra/audio/loader/loader.factor
@@ -1,6 +1,6 @@
-! (c)2009 Joe Groff bsd license
-USING: ascii assocs io.pathnames kernel namespaces
-vocabs ;
+! Copyright (C) 2009 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: ascii assocs io.pathnames namespaces vocabs ;
 IN: audio.loader
 
 ERROR: unknown-audio-extension extension ;
@@ -14,7 +14,7 @@ audio-types [ H{ } clone ] initialize
 : read-audio ( path -- audio )
     dup file-extension >lower audio-types get ?at
     [ call( path -- audio ) ]
-    [ throw-unknown-audio-extension ] if ;
+    [ unknown-audio-extension ] if ;
 
 "audio.wav" require
 "audio.aiff" require