From 7193fd65b6b31492db3f8cd6418ef09db82067a8 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 29 Mar 2014 18:57:56 -0400
Subject: Add enable-audio procedure.

* 2d/audio.scm (enable-audio): New procedure.
---
 2d/audio.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to '2d')

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.
-- 
cgit v1.2.3