From aecb53caf9c441fab0dbc14ea0a48bc3c43d07a5 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Mon, 6 Jul 2026 22:07:09 +0200 Subject: [PATCH] Somewhat more debugging info. --- audio-player.rkt | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/audio-player.rkt b/audio-player.rkt index a14eb0b..4caa7bf 100644 --- a/audio-player.rkt +++ b/audio-player.rkt @@ -80,8 +80,14 @@ (if (list? ret) (if (null? ret) (error (format "audio-player: no return value in ~a" ret)) - (car ret)) - ret)) + (let ((r (car ret))) + (when (eq? r 'error) + (err-sound "Got an error: ~a" ret)) + (car ret))) + (begin + (when(eq? ret 'error) + (err-sound "Got an error: ~a" ret)) + ret))) (define (is-event? evt sym) (is-return? evt sym)) @@ -253,7 +259,9 @@ (-> audio-play? path-string? number?) (let ((result ((audio-play-rpc handle) 'open audio-file))) (when (eq? result 'error) - (error "Got an error from the placed audio player")) + (err-sound "audio-play!: error for file ~a" audio-file) + (error "Got an error from the placed audio player") + ) (cadr result))) (define/contract (audio-pause! handle paused)