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

pr 12268 fix merge to 5.2

Browse Source 
(cherry picked from commit 58b1f86326)
This commit is contained in:
Kevin Tew 2011-10-08 12:49:18 -06:00 committed by Eli Barzilay
parent f108ea8861
commit 566c36c4f2
1 changed files with 31 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/place.c
View File

@ -2465,6 +2465,7 @@ static void async_channel_finalize(void *p, void* data) {
ch->out = 0;
ch->count = 0;
if (ch->wakeup_signal) {
/*release single receiver */
if (SCHEME_PLACE_OBJECTP(ch->wakeup_signal)) {
int refcount = 0;
@ -2502,6 +2503,7 @@ static void async_channel_finalize(void *p, void* data) {
}
}
}
}
Scheme_Place_Async_Channel *place_async_channel_create() {
Scheme_Object **msgs;