From 58ec161af7b368314b09a41f6a37f5bcfbab5d22 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 15 Mar 2011 06:46:36 -0600
Subject: [PATCH] code clarification

original commit: 2f907afde6ae17f23df4cf3dfb590568d605f793
---
 collects/mred/private/wx/cocoa/sound.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/mred/private/wx/cocoa/sound.rkt b/collects/mred/private/wx/cocoa/sound.rkt
index adf34464..c6382e62 100644
--- a/collects/mred/private/wx/cocoa/sound.rkt
+++ b/collects/mred/private/wx/cocoa/sound.rkt
@@ -26,7 +26,11 @@
         [sema (make-semaphore)])
     (tellv s setDelegate: s)
     (set-ivar! s sema sema)
-    (tellv s retain) ; don't use `retain', because we dont' want auto-release
+
+    ; use the `retain' method instead of the `retain' function, because we
+    ; don't want a finalization-triggered release:
+    (tellv s retain)
+    
     (and (tell #:type _BOOL s play)
          (if async?
              #t