From 819d756c04bcd21cfcd3c05db64d2c0498fc5216 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Mon, 6 Jul 2026 16:39:06 +0200 Subject: [PATCH] make mutable hash for file correction. --- audio-player.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/audio-player.rkt b/audio-player.rkt index d9a63ac..a14eb0b 100644 --- a/audio-player.rkt +++ b/audio-player.rkt @@ -209,10 +209,10 @@ (cond ((eq? e #f) (void)) ((is-event? e 'state) (let* ((data (evt-data e)) - (h (car data))) + (h (hash-copy (car data)))) (correct-to-os-path h replace-base-paths) (set-audio-play-state! handle h) - (cb-state* (cadr data) (car data)))) + (cb-state* (cadr data) h))) ((is-event? e 'audio-done) (cb-eof*)) ((is-event? e 'exception) (err-sound "audio-player: exception event: ~a" e))