suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Windows play-sound: use the right custodian registration

Browse Source 
Otherwise, a GC tends to terminate the sound.
This commit is contained in:
Matthew Flatt 2016-01-04 19:19:51 -07:00
parent 76c305852b
commit 8ae077c22a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui-lib/mred/private/wx/win32/sound.rkt
View File

@ -53,7 +53,7 @@
(call-as-atomic (call-as-atomic
(lambda () (lambda ()
(mci-send "open \"~a\" alias ~a" (simplify-path file) id) (mci-send "open \"~a\" alias ~a" (simplify-path file) id)
(register-finalizer-and-custodian-shutdown (register-custodian-shutdown
id id
(lambda (id) (lambda (id)
(mci-send "close ~a" id)) (mci-send "close ~a" id))