From 8ae86dafeabf78bd31de529b4cb5a29bc19ff476 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 7 Jul 2026 09:49:07 +0200 Subject: [PATCH] Changing audio-placed-player to handle audio errors better. --- audio-placed-player.rkt | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/audio-placed-player.rkt b/audio-placed-player.rkt index 1f3061a..2013980 100644 --- a/audio-placed-player.rkt +++ b/audio-placed-player.rkt @@ -113,7 +113,10 @@ (set! feeding-audio #f) (set! feed-interrupted #f) (set! player-state 'stopped) - (evt (list 'exception (exn-message e))))]) + (let ((code (if (exn:fail:audio? e) (exn:fail:audio-code e) 'no-audio-error))) + (state (format "audio-read-worker: exception ~a" code) evt) + (evt (list 'exception (exn-message e) code))) + )]) (dynamic-wind void (λ () @@ -475,12 +478,10 @@ (with-handlers ([exn:fail? (λ (e) (if (eq? ch-evt #f) (raise e) - (begin - (evt (list 'exception - (exn-message e))) + (let ((code (if (exn:fail:audio? e) (exn:fail:audio-code e) 'no-audio-error))) + (evt (list 'exception (exn-message e) code)) (when in-rpc - (put (list 'error - (exn-message e))) + (put (list 'error (exn-message e) code)) (set! in-rpc #f)) (loop)) ))]) @@ -568,7 +569,7 @@ )) (else (do-rpc - (list 'error (format "Unknown command ~a" cmd)))) + (list 'error (format "Unknown command ~a" cmd) 'error-unknown-command))) ) (loop) )