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

2011-03-03 05:48:43 -07:00 · 2011-03-03 05:48:43 -07:00 · 107b349da0
commit 107b349da0
parent 4afd36c9fd
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)))))