fixed backward subprocess-kill handling of force argument

svn: r3838
This commit is contained in:
Matthew Flatt 2006-07-27 12:34:59 +00:00
parent dee6758656
commit 0bab258328

View File

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