summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-03-29 18:57:56 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-03-29 18:57:56 -0400
commit7193fd65b6b31492db3f8cd6418ef09db82067a8 (patch)
tree7fe5660925d27e0bc11009d88e47b34e941a4a31
parentaf3ec62bae8c150d1f709ccd793844d182f3334f (diff)
Add enable-audio procedure.
* 2d/audio.scm (enable-audio): New procedure.
-rw-r--r--2d/audio.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/2d/audio.scm b/2d/audio.scm
index 0335eee..3accb8b 100644
--- a/2d/audio.scm
+++ b/2d/audio.scm
@@ -25,7 +25,8 @@
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-2)
#:use-module ((sdl mixer) #:prefix SDL:)
- #:export (load-sample
+ #:export (enable-audio
+ load-sample
sample?
sample-audio
sample-volume
@@ -44,7 +45,8 @@
music-paused?
music-playing?))
-(SDL:open-audio)
+(define (enable-audio)
+ (SDL:open-audio))
;; Used to wrap SDL audio functions whose return values should be
;; ignored.