From 3d9563e308881e1b6e95797bcd0762690b5ec2b0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 3 Mar 2011 05:48:43 -0700
Subject: [PATCH] cocoa: fix `play-sound' handling of async flag

original commit: 107b349da073d82a1c75fd2b141fedc246aa4b2e
---
 collects/mred/private/wx/cocoa/sound.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mred/private/wx/cocoa/sound.rkt b/collects/mred/private/wx/cocoa/sound.rkt
index ec31b205..ff3aad2a 100644
--- a/collects/mred/private/wx/cocoa/sound.rkt
+++ b/collects/mred/private/wx/cocoa/sound.rkt
@@ -30,7 +30,7 @@
     (tellv s retain) ; don't use `retain', because we dont' want auto-release
     (tellv s play)
     (if async?
+        #t
         (begin
           (semaphore-wait sema)
-          (get-ivar s result))
-        #t)))
+          (get-ivar s result)))))