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)