From 8ae077c22a59c085b3e6dda142bd9dc29a35b594 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 4 Jan 2016 19:19:51 -0700
Subject: [PATCH] Windows play-sound: use the right custodian registration

Otherwise, a GC tends to terminate the sound.
---
 gui-lib/mred/private/wx/win32/sound.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gui-lib/mred/private/wx/win32/sound.rkt b/gui-lib/mred/private/wx/win32/sound.rkt
index 51ac372f..a7e53779 100644
--- 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))