From 0bab2583285d7417e5fdfb0288309419bc143a9b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 27 Jul 2006 12:34:59 +0000 Subject: [PATCH] fixed backward subprocess-kill handling of force argument svn: r3838 --- src/mzscheme/src/port.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mzscheme/src/port.c b/src/mzscheme/src/port.c index ef4f740bed..adea899e5e 100644 --- a/src/mzscheme/src/port.c +++ b/src/mzscheme/src/port.c @@ -6733,7 +6733,7 @@ static Scheme_Object *subprocess_kill(int argc, Scheme_Object **argv) if (sc->done) return scheme_void; - if (!kill(sp->pid, SCHEME_TRUEP(argv[1]) ? SIGINT : SIGKILL)) + if (!kill(sp->pid, SCHEME_TRUEP(argv[1]) ? SIGKILL : SIGINT)) return scheme_void; if (errno != EINTR)