shutdown custodian-managed subprocesses on exit
This commit is contained in:
parent
ddd0eb2d9d
commit
f6cfd14c5e
|
@ -10095,7 +10095,7 @@ static Scheme_Object *subprocess(int c, Scheme_Object *args[])
|
|||
else
|
||||
closer = interrupt_subproc;
|
||||
|
||||
mref = scheme_add_managed(NULL, (Scheme_Object *)subproc, closer, NULL, 1);
|
||||
mref = scheme_add_managed_close_on_exit(NULL, (Scheme_Object *)subproc, closer, NULL);
|
||||
subproc->mref = mref;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user