Better error message

2008-05-18 16:50:50 -05:00 · 2008-05-18 16:50:50 -05:00 · 8a35f7c099
parent 7aa2bb3f30
commit 8a35f7c099
1 changed files with 2 additions and 2 deletions
--- 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 ;