make mutable hash for file correction.

2026-07-06 16:39:06 +02:00
parent 01752d6e4b
commit 819d756c04
1 changed files with 2 additions and 2 deletions
@@ -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))