diff --git a/audio-player.rkt b/audio-player.rkt index 5796ece..710424e 100644 --- a/audio-player.rkt +++ b/audio-player.rkt @@ -270,6 +270,10 @@ ((_ handle cmd args ...) (let ((rv ((audio-play-rpc handle) cmd args ...))) (displayln rv) + (displayln (internal-audio-retval-kind rv)) + (displayln (internal-audio-retval-code rv)) + (displayln (internal-audio-retval-info rv)) + (displayln (internal-audio-retval-retval rv)) (if (eq? (internal-audio-retval-kind rv) 'error) (raise-audio-error (internal-audio-retval-code rv) (internal-audio-retval-info rv)) (internal-audio-retval-retval rv))))