fix `current-subprocess-custodian-mode'

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

Merge to v5.3
(cherry picked from commit d8461837f9)
This commit is contained in:
Matthew Flatt 2012-07-25 20:45:52 -06:00 committed by Ryan Culpepper
parent e209e9c671
commit d444800018

View File

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