Better error message
parent
7aa2bb3f30
commit
8a35f7c099
|
@ -235,13 +235,13 @@ SYMBOL: init
|
||||||
|
|
||||||
: init-openal ( -- )
|
: init-openal ( -- )
|
||||||
init get-global expired? [
|
init get-global expired? [
|
||||||
f f alutInit drop
|
f f alutInit 0 = [ "Could not initialize OpenAL" throw ] when
|
||||||
1337 <alien> init set-global
|
1337 <alien> init set-global
|
||||||
] when ;
|
] when ;
|
||||||
|
|
||||||
: exit-openal ( -- )
|
: exit-openal ( -- )
|
||||||
init get-global expired? [
|
init get-global expired? [
|
||||||
alutExit drop
|
alutExit 0 = [ "Could not close OpenAL" throw ] when
|
||||||
f init set-global
|
f init set-global
|
||||||
] unless ;
|
] unless ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue