From f6cfd14c5ee8106b1484178dc70e3f2d5b7120f4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 3 Nov 2013 09:25:15 -0700 Subject: [PATCH] shutdown custodian-managed subprocesses on exit --- racket/src/racket/src/port.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/racket/src/port.c b/racket/src/racket/src/port.c index 7820bf554f..25fa42c3ed 100644 --- a/racket/src/racket/src/port.c +++ b/racket/src/racket/src/port.c @@ -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; }