From 781a21a5d61896ca8732dd80ac414679d2cd2860 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 7 Jul 2026 12:07:22 +0200 Subject: [PATCH] audio play! bug fix. --- audio-player.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/audio-player.rkt b/audio-player.rkt index d9b3733..eb0d572 100644 --- a/audio-player.rkt +++ b/audio-player.rkt @@ -266,7 +266,6 @@ (syntax-rules () ((_ handle cmd args ...) (let ((rv ((audio-play-rpc handle) cmd args ...))) - (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)))) @@ -275,7 +274,10 @@ (define/contract (audio-play! handle audio-file) (-> audio-play? path-string? number?) - (ap-rpc handle 'open audio-file)) + (let ((r (ap-rpc handle 'play audio-file))) + (if (eq? (car r) 'ok) + (cadr r) + (raise-audio-error 'audio-error "audio-player: unexpected return value from 'play command: ~a" r)))) (define/contract (audio-pause! handle paused) (-> audio-play? boolean? symbol?)