From d8461837f91b800621bf2c4673071f8edbc5f505 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 25 Jul 2012 20:45:52 -0600
Subject: [PATCH] fix `current-subprocess-custodian-mode'

An 'interrupt setting was treated as a 'kill setting.

Merge to v5.3
---
 src/racket/src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/port.c b/src/racket/src/port.c
index 2107b8aac4..8008d1efc9 100644
--- a/src/racket/src/port.c
+++ b/src/racket/src/port.c
@@ -8532,7 +8532,7 @@ static void kill_subproc(Scheme_Object *o, void *data)
 
 static void interrupt_subproc(Scheme_Object *o, void *data)
 {
-  (void)do_subprocess_kill(o, scheme_true, 0);
+  (void)do_subprocess_kill(o, scheme_false, 0);
 }
 #endif