More debugging
This commit is contained in:
@@ -83,6 +83,7 @@
|
|||||||
)
|
)
|
||||||
|
|
||||||
(define (to-ret-value ret)
|
(define (to-ret-value ret)
|
||||||
|
(displayln ret)
|
||||||
(if (list? ret)
|
(if (list? ret)
|
||||||
(if (null? ret)
|
(if (null? ret)
|
||||||
(raise-audio-error 'audio-error "audio-player: no return value, empty list returned")
|
(raise-audio-error 'audio-error "audio-player: no return value, empty list returned")
|
||||||
|
|||||||
Reference in New Issue
Block a user