diff --git a/audio-player.rkt b/audio-player.rkt index f32155b..e301c7c 100644 --- a/audio-player.rkt +++ b/audio-player.rkt @@ -87,6 +87,7 @@ (if (null? ret) (raise-audio-error 'audio-error "audio-player: no return value, empty list returned") (let ((r (car ret))) + (displayln ret) (if (eq? r 'error) (let ((code (cadr ret)) (msg (caddr ret))) @@ -267,7 +268,7 @@ (syntax-rules () ((_ handle cmd args ...) (let ((rv ((audio-play-rpc handle) cmd args ...))) - (display rv) + (displayln 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))))