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

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

diff --git a/extra/audio/engine/engine.factor b/extra/audio/engine/engine.factor
index 16d82ca55e221733f5dfba9002f2036051ed1b14..5da13cd33e9bb50c3b50fd52092cf5ad24ab132f 100644 (file)
--- a/extra/audio/engine/engine.factor
+++ b/extra/audio/engine/engine.factor
@@ -94,11 +94,11 @@ ERROR: audio-context-not-available device-name ;
 :: <audio-engine> ( device-name voice-count -- engine )
     [
         device-name alcOpenDevice :> al-device
-        al-device [ device-name throw-audio-device-not-found ] unless
+        al-device [ device-name audio-device-not-found ] unless
         al-device |alcCloseDevice* drop
 
         al-device f alcCreateContext :> al-context
-        al-context [ device-name throw-audio-context-not-available ] unless
+        al-context [ device-name audio-context-not-available ] unless
         al-context |alcDestroyContext drop
 
         al-context alcSuspendContext