From 8649aa9717ed2fdcdf69a1cfd6e435b981d8dc5d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Wed, 11 Sep 2013 21:40:01 -0400
Subject: Open SDL audio when window is opened.

---
 2d/window.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/2d/window.scm b/2d/window.scm
index 5ff41dc..2631d7f 100644
--- a/2d/window.scm
+++ b/2d/window.scm
@@ -24,6 +24,7 @@
 (define-module (2d window)
   #:use-module (figl gl)
   #:use-module ((sdl sdl) #:prefix SDL:)
+  #:use-module ((sdl mixer) #:prefix SDL:)
   #:use-module (2d vector2)
   #:export (open-window
             close-window))
@@ -37,6 +38,7 @@ initializes OpenGL state."
     ;; Initialize everything
     (SDL:enable-unicode #t)
     (SDL:init 'everything)
+    (SDL:open-audio)
     ;; Open SDL window in OpenGL mode.
     (SDL:set-video-mode width height 24 flags)
     (SDL:set-caption title)
@@ -56,4 +58,5 @@ initializes OpenGL state."
 (define (close-window)
   "Closes the game window and cleans up. This procedure is typically
 called just before calling (quit)."
+  (SDL:close-audio)
   (SDL:quit))
-- 
cgit v1.2.3