From a9ad9bed2a1a5751b578f7ec5b14995d150a3880 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Tue, 7 Jul 2026 10:29:25 +0200
Subject: [PATCH] error debugging

---
 audio-player.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/audio-player.rkt b/audio-player.rkt
index f32155b..e301c7c 100644
--- a/audio-player.rkt
+++ b/audio-player.rkt
@@ -87,6 +87,7 @@
       (if (null? ret)
           (raise-audio-error 'audio-error "audio-player: no return value, empty list returned")
           (let ((r (car ret)))
+            (displayln ret)
             (if (eq? r 'error)
               (let ((code (cadr ret))
                     (msg (caddr ret)))
@@ -267,7 +268,7 @@
   (syntax-rules ()
     ((_ handle cmd args ...)
      (let ((rv ((audio-play-rpc handle) cmd args ...)))
-        (display rv)
+        (displayln rv)
         (if (eq? (internal-audio-retval-kind rv) 'error)
           (raise-audio-error (internal-audio-retval-code rv) (internal-audio-retval-info rv))
           (internal-audio-retval-retval rv))))