X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Faudio.scm;h=8b1e146207c69e72a3aaae5380eba7542ac7a1b7;hb=fd6032e61930e10fc10b41e43acf98674998288a;hp=41207f49715606bfc38c1155f7b2baad60bac364;hpb=f222261d0c3d6670b2069f66311c9113133deb7c;p=gacela.git

diff --git a/src/audio.scm b/src/audio.scm
index 41207f4..8b1e146 100644
--- 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))))))