Preparing new version 0.6

[gacela.git] / src / audio.scm

diff --git a/src/audio.scm b/src/audio.scm
index 41207f49715606bfc38c1155f7b2baad60bac364..5d91ece25f386a3bf98bbab43100b9fef326601a 100644 (file)
--- a/src/audio.scm
+++ b/src/audio.scm
@@ -21,17 +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 ()
-         (Mix_CloseAudio)
-         (set! audio #f))))
+(define (quit-audio)
+  (cond (audio
+        (Mix_CloseAudio)
+        (set! audio #f))))