error debugging
This commit is contained in:
+1
-1
@@ -58,7 +58,7 @@
|
||||
(let ((src (syntax-source stx))
|
||||
(line (syntax-line stx)))
|
||||
#`(displayln code)
|
||||
#`(displayln message)
|
||||
#`(displayln (list message ...))
|
||||
#`(displayln '#,src)
|
||||
#`(displayln '#,line)
|
||||
#`(raise-audio-error* code '#,src '#,line message ...)))))
|
||||
|
||||
Reference in New Issue
Block a user