From b53203045e2960af1920eeebfb6f022047613914 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 24 Oct 2021 12:51:32 -0400
Subject: audio: Don't crash if there is no sound system to update.

---
 chickadee/audio.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/chickadee/audio.scm b/chickadee/audio.scm
index b340f06..7b5b0f3 100644
--- a/chickadee/audio.scm
+++ b/chickadee/audio.scm
@@ -308,7 +308,9 @@
 
 (define (update-audio)
   "Update audio system."
-  (update-sound-system (current-sound-system)))
+  (let ((sound-system (current-sound-system)))
+    (when sound-system
+      (update-sound-system sound-system))))
 
 (define* (make-source #:key
                       audio
-- 
cgit v1.2.3