debugging audio errors

2026-07-07 11:36:39 +02:00
parent c3eaca123e
commit b6e581aced
1 changed files with 4 additions and 0 deletions
@@ -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)