exit-native-openal ( -- )

Vocabulary

openal.alut.macos

Inputs

None

Outputs

None

Definition

USING: kernel namespaces openal ;

IN: openal.alut.macos

:: exit-native-openal ( -- )
    native-alut-context get-global :> context context [
        context alcGetContextsDevice :> device
        alcGetCurrentContext context =
        [ f alcMakeContextCurrent drop ] when
        context alcDestroyContext device alcCloseDevice drop
        f native-alut-context set-global
    ] when ;