shutdown custodian-managed subprocesses on exit

This commit is contained in:
Matthew Flatt 2013-11-03 09:25:15 -07:00
parent ddd0eb2d9d
commit f6cfd14c5e

View File

@ -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;
}