Ignore SIGCHLD
[hcoop/domtool2.git] / src / compat_mlton.sml
index 9a6b60f..7b28b7e 100644 (file)
@@ -26,5 +26,6 @@ end
 val _ = let
     open MLton.Signal
 in
 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
 end