suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

code clarification

Browse Source 
original commit: 2f907afde6ae17f23df4cf3dfb590568d605f793
This commit is contained in:
Matthew Flatt 2011-03-15 06:46:36 -06:00
parent 423bb60db5
commit 58ec161af7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wx/cocoa/sound.rkt
View File

@ -26,7 +26,11 @@
[sema (make-semaphore)]) [sema (make-semaphore)])
(tellv s setDelegate: s) (tellv s setDelegate: s)
(set-ivar! s sema sema) (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) (and (tell #:type _BOOL s play)
(if async? (if async?
#t #t