debugging errors
This commit is contained in:
@@ -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)))
|
||||||
|
|||||||
Reference in New Issue
Block a user