hans/racket-audio
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make mutable hash for file correction.

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-06 16:39:06 +02:00
parent 01752d6e4b
commit 819d756c04
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-player.rkt
+2 -2
View File
@@ -209,10 +209,10 @@
(cond ((eq? e #f) (void)) (cond ((eq? e #f) (void))
((is-event? e 'state) ((is-event? e 'state)
(let* ((data (evt-data e)) (let* ((data (evt-data e))
(h (car data))) (h (hash-copy (car data))))
(correct-to-os-path h replace-base-paths) (correct-to-os-path h replace-base-paths)
(set-audio-play-state! handle h) (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 'audio-done) (cb-eof*))
((is-event? e 'exception) ((is-event? e 'exception)
(err-sound "audio-player: exception event: ~a" e)) (err-sound "audio-player: exception event: ~a" e))