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