error debugging

This commit is contained in:
2026-07-07 11:39:31 +02:00
parent b6e581aced
commit df2289e586
+1 -1
View File
@@ -58,7 +58,7 @@
(let ((src (syntax-source stx)) (let ((src (syntax-source stx))
(line (syntax-line stx))) (line (syntax-line stx)))
#`(displayln code) #`(displayln code)
#`(displayln message) #`(displayln (list message ...))
#`(displayln '#,src) #`(displayln '#,src)
#`(displayln '#,line) #`(displayln '#,line)
#`(raise-audio-error* code '#,src '#,line message ...))))) #`(raise-audio-error* code '#,src '#,line message ...)))))