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

avoid a stack overflow with deeply call-in-nested threads

Browse Source 
svn: r18046
This commit is contained in:
Matthew Flatt 2010-02-11 04:29:28 +00:00
parent 38a0f6d89a
commit f94b9f4377
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/mzscheme/src/thread.c
View File

@ -1974,11 +1974,16 @@ void scheme_schedule_custodian_close(Scheme_Custodian *c)
static void check_scheduled_kills()
{
Scheme_Object *kl, *k;
while (scheduled_kills && !SCHEME_NULLP(scheduled_kills)) {
Scheme_Object *k;
k = SCHEME_CAR(scheduled_kills);
scheduled_kills = SCHEME_CDR(scheduled_kills);
scheme_close_managed((Scheme_Custodian *)k);
kl = scheduled_kills;
scheduled_kills = scheme_null;
while (!SCHEME_NULLP(kl)) {
k = SCHEME_CAR(kl);
kl = SCHEME_CDR(kl);
scheme_close_managed((Scheme_Custodian *)k);
}
}
}