From b6e581aced543fd28dcae96e4c8589d1e10eafc6 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Tue, 7 Jul 2026 11:36:39 +0200
Subject: [PATCH] debugging audio errors

---
 audio-errors.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/audio-errors.rkt b/audio-errors.rkt
index 6400072..67c6bf3 100644
--- a/audio-errors.rkt
+++ b/audio-errors.rkt
@@ -57,6 +57,10 @@
     ((_ code message ...)
      (let ((src (syntax-source stx))
            (line (syntax-line stx)))
+      #`(displayln code)
+      #`(displayln message)
+      #`(displayln '#,src)
+      #`(displayln '#,line)
        #`(raise-audio-error* code '#,src '#,line message ...)))))
 
 (define (test x)