diff --git a/audio-errors.rkt b/audio-errors.rkt index d677a9c..6400072 100644 --- a/audio-errors.rkt +++ b/audio-errors.rkt @@ -42,6 +42,7 @@ (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))) (src* (file-name-from-path (build-path source))) (msg* (format "~a at ~a, line ~a" msg src* line)))