debugging errors

This commit is contained in:
2026-07-07 11:29:17 +02:00
parent aa3255f104
commit c3eaca123e
+1
View File
@@ -42,6 +42,7 @@
(define (raise-audio-error* code source line message . args) (define (raise-audio-error* code source line message . args)
(displayln (format "raise-audio-error*: code=~a source=~a line=~a message=~a args=~a" code source line message args))
(let* ((msg (apply format (cons message args))) (let* ((msg (apply format (cons message args)))
(src* (file-name-from-path (build-path source))) (src* (file-name-from-path (build-path source)))
(msg* (format "~a at ~a, line ~a" msg src* line))) (msg* (format "~a at ~a, line ~a" msg src* line)))