From 8cf5b8227e29e2f7b0d245fc7a6ddd43eef06ceb Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Mon, 9 Apr 2007 23:26:01 +0000
Subject: [PATCH 1/1] Ignore SIGCHLD

---
 src/compat_mlton.sml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/compat_mlton.sml b/src/compat_mlton.sml
index 9a6b60f..7b28b7e 100644
--- a/src/compat_mlton.sml
+++ b/src/compat_mlton.sml
@@ -26,5 +26,6 @@ end
 val _ = let
     open MLton.Signal
 in
-    setHandler (Posix.Signal.pipe, Handler.ignore)
+    setHandler (Posix.Signal.pipe, Handler.ignore);
+    setHandler (Posix.Signal.chld, Handler.ignore)
 end
-- 
2.20.1