Windows play-sound: use the right custodian registration

Otherwise, a GC tends to terminate the sound.
2016-01-04 19:19:51 -07:00 · 2016-01-04 19:19:51 -07:00 · 8ae077c22a
commit 8ae077c22a
parent 76c305852b
1 changed files with 1 additions and 1 deletions
--- a/gui-lib/mred/private/wx/win32/sound.rkt
+++ b/gui-lib/mred/private/wx/win32/sound.rkt
@ -53,7 +53,7 @@
  (call-as-atomic
   (lambda ()
     (mci-send "open \"~a\" alias ~a" (simplify-path file) id)
-     (register-finalizer-and-custodian-shutdown
+     (register-custodian-shutdown
      id
      (lambda (id)
        (mci-send "close ~a" id))