From f233e2a5673fe4e7f47856a8e2167e0cb7992ad6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Wed, 14 Sep 2016 15:53:29 +0200 Subject: [PATCH] openal.alut: fixing alut so it should throw better error messages --- extra/openal/alut/alut.factor | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/extra/openal/alut/alut.factor b/extra/openal/alut/alut.factor index 2a21a2e5bc..f4ae603f68 100755 --- a/extra/openal/alut/alut.factor +++ b/extra/openal/alut/alut.factor @@ -71,21 +71,24 @@ FUNCTION: void alutUnloadWAV ( ALenum format, void* data, ALsizei size, ALsizei SYMBOL: init +: throw-alut-error ( -- ) + alutGetError alutGetErrorString throw ; + : init-openal ( -- ) init get-global expired? [ - f f alutInit 0 = [ "Could not initialize OpenAL" throw ] when + f f alutInit 0 = [ throw-alut-error ] when 1337 init set-global ] when ; : exit-openal ( -- ) init get-global expired? [ - alutExit 0 = [ "Could not close OpenAL" throw ] when + alutExit 0 = [ throw-alut-error ] when f init set-global ] unless ; : create-buffer-from-file ( filename -- buffer ) alutCreateBufferFromFile dup AL_NONE = [ - "create-buffer-from-file failed" throw + throw-alut-error ] when ; os macosx? "openal.alut.macosx" "openal.alut.other" ? require