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

avoid custodian shutdown during atomic FFI callback

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-10 14:36:49 -06:00
parent ec25a74b97
commit f3a79350e2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/racket/src/thread.c
View File

@ -1793,6 +1793,11 @@ void scheme_schedule_custodian_close(Scheme_Custodian *c)
static void check_scheduled_kills()
{
if (scheme_no_stack_overflow) {
/* don't shutdown something that may be in an atomic callback */
return;
}
while (scheduled_kills && !SCHEME_NULLP(scheduled_kills)) {
Scheme_Object *k;
k = SCHEME_CAR(scheduled_kills);