From 3116ba3f93ba6a730dc405f6c92fa467f1a953d0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 20 Jul 2010 10:30:03 -0600
Subject: [PATCH] fix exit status of signal-terminated subprocess  Closes PR
 10932  Merge to 5.0.1 (cherry picked from commit
 a2f3dad4f0c01ec0806ebff8645450b1919c47c9)

---
 src/racket/src/port.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/racket/src/port.c b/src/racket/src/port.c
index 96e24e9bea..f2c1e62f13 100644
--- a/src/racket/src/port.c
+++ b/src/racket/src/port.c
@@ -6886,6 +6886,8 @@ static void check_child_done(pid_t pid)
         START_XFORM_SKIP;
         if (WIFEXITED(status))
           status = WEXITSTATUS(status);
+        else if (WIFSIGNALED(status))
+          status = WTERMSIG(status) + 128;
         else
           status = MZ_FAILURE_STATUS;
         END_XFORM_SKIP;