fix channel/semaphore sync bug

This commit is contained in:
Matthew Flatt 2011-11-02 15:54:50 -06:00
parent 40f3388051
commit a495c9f349

View File

@ -673,7 +673,12 @@ int scheme_wait_semas_chs(int n, Scheme_Object **o, int just_try, Syncing *synci
break;
} else {
/* there may have been some action on one of the waitables;
try again */
try again, if no result, yet */
if (syncing && syncing->result) {
i = syncing->result - 1;
ii = 0;
break;
}
}
} else
break;