From 1036cf1a2b4a9550ca253da5f70ad745c5a9e111 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 27 Nov 2022 19:46:23 -0500
Subject: audio: Fix bug where #:audio argument is ignored in make-source.

---
 chickadee/audio.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/chickadee/audio.scm b/chickadee/audio.scm
index e7bce70..93feb09 100644
--- a/chickadee/audio.scm
+++ b/chickadee/audio.scm
@@ -360,6 +360,8 @@ position as relative to the listener or as an absolute value."
     (set-source-velocity! source velocity)
     (set-source-direction! source direction)
     (set-source-relative! source relative?)
+    (when audio
+      (set-source-audio! source audio))
     source))
 
 (define (streaming-source? source)
-- 
cgit v1.2.3