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

diff --git a/src/audio.scm b/src/audio.scm
index 8b1e146..5d91ece 100644
--- a/src/audio.scm
+++ b/src/audio.scm
@@ -21,18 +21,14 @@
 	    quit-audio))
 
 
-(define init-audio #f)
-(define quit-audio #f)
+(define audio #f)
 
-(let ((audio #f))
-  (set! init-audio
-	(lambda ()
-	  (cond ((not audio)
-		 (SDL_Init SDL_INIT_AUDIO)
-		 (set! audio (Mix_OpenAudio 22050 MIX_DEFAULT_FORMAT 2 4096))))))
+(define (init-audio)
+  (cond ((not audio)
+	 (SDL_Init SDL_INIT_AUDIO)
+	 (set! audio (Mix_OpenAudio 22050 MIX_DEFAULT_FORMAT 2 4096)))))
 
-  (set! quit-audio
-	(lambda ()
-	  (cond (audio
-		 (Mix_CloseAudio)
-		 (set! audio #f))))))
+(define (quit-audio)
+  (cond (audio
+	 (Mix_CloseAudio)
+	 (set! audio #f))))