Gacela as Guile modules.

[gacela.git] / src / audio.scm

diff --git a/src/audio.scm b/src/audio.scm
index 41207f49715606bfc38c1155f7b2baad60bac364..8b1e146207c69e72a3aaae5380eba7542ac7a1b7 100644 (file)
--- a/src/audio.scm
+++ b/src/audio.scm
@@ -33,5 +33,6 @@
 
   (set! quit-audio
        (lambda ()
-         (Mix_CloseAudio)
-         (set! audio #f))))
+         (cond (audio
+                (Mix_CloseAudio)
+                (set! audio #f))))))