factor: trim using lists

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

diff --git a/extra/audio/audio.factor b/extra/audio/audio.factor
index fcd36a27bbcbf4964a6973ec4bdf56c528dd0151..8f561705c0fd5531494bd10d8a7c00f3b8a27b79 100644 (file)
--- a/extra/audio/audio.factor
+++ b/extra/audio/audio.factor
@@ -1,5 +1,6 @@
-! (c)2010 Joe Groff bsd license
-USING: accessors alien arrays combinators kernel math openal ;
+! Copyright (C) 2010 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors alien arrays combinators math openal ;
 IN: audio
 
 TUPLE: audio
@@ -19,5 +20,5 @@ ERROR: format-unsupported-by-openal audio ;
         { { 1 16 } [ drop AL_FORMAT_MONO16   ] }
         { { 2  8 } [ drop AL_FORMAT_STEREO8  ] }
         { { 2 16 } [ drop AL_FORMAT_STEREO16 ] }
-        [ drop throw-format-unsupported-by-openal ]
+        [ drop format-unsupported-by-openal ]
     } case ;