From 8a35f7c099c77951b4cce81ddff2ebfde2e3120a Mon Sep 17 00:00:00 2001
From: slava <slava@terrorist.(none)>
Date: Sun, 18 May 2008 16:50:50 -0500
Subject: [PATCH] Better error message

---
 extra/openal/openal.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/openal/openal.factor b/extra/openal/openal.factor
index c0a79d8353..38d61a8823 100644
--- a/extra/openal/openal.factor
+++ b/extra/openal/openal.factor
@@ -235,13 +235,13 @@ SYMBOL: init
 
 : init-openal ( -- )
   init get-global expired? [
-    f f alutInit drop
+    f f alutInit 0 = [ "Could not initialize OpenAL" throw ] when
     1337 <alien> init set-global
   ] when ;
 
 : exit-openal ( -- )
   init get-global expired? [
-    alutExit drop
+    alutExit 0 = [ "Could not close OpenAL" throw ] when
     f init set-global
   ] unless ;