cocoa: fix `play-sound' handling of async flag

original commit: 107b349da073d82a1c75fd2b141fedc246aa4b2e
2011-03-03 05:48:43 -07:00 · 2011-03-03 05:48:43 -07:00 · 3d9563e308
commit 3d9563e308
parent d8c8812f87
1 changed files with 2 additions and 2 deletions
--- 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)))))