diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-03-29 18:57:56 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-03-29 18:57:56 -0400 |
| commit | 7193fd65b6b31492db3f8cd6418ef09db82067a8 (patch) | |
| tree | 7fe5660925d27e0bc11009d88e47b34e941a4a31 | |
| parent | af3ec62bae8c150d1f709ccd793844d182f3334f (diff) | |
Add enable-audio procedure.
* 2d/audio.scm (enable-audio): New procedure.
| -rw-r--r-- | 2d/audio.scm | 6 |
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. |