From 15ef81d30af49156cb24705b8fb5970c65a71a91 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Tue, 7 Jul 2026 11:49:10 +0200
Subject: [PATCH] error handling code/msg mixed.

---
 audio-player.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/audio-player.rkt b/audio-player.rkt
index 710424e..f34cd49 100644
--- a/audio-player.rkt
+++ b/audio-player.rkt
@@ -90,8 +90,8 @@
           (let ((r (car ret)))
             (displayln ret)
             (if (eq? r 'error)
-              (let ((code (cadr ret))
-                    (msg (caddr ret)))
+              (let ((msg (cadr ret))
+                    (code (caddr ret)))
                 (err-sound "Got an error: ~a - ~a" code msg)
                 (make-internal-audio-retval 'error code msg 'error))
               (make-internal-audio-retval 'retval #f #f r))))