From 4e420e4d032b550fa6e0193a3bbf04f4db76cc8b Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Fri, 10 Nov 2017 21:08:02 +0100
Subject: Also unmask (if needed) sigchld in the child process thunk

This would be otherwise kept in masked mode because the thunk is in
the dynamic extent of the dynamic-wind.
---
 scsh-process.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'scsh-process.scm')

diff --git a/scsh-process.scm b/scsh-process.scm
index 5bfd7e9..3682c68 100644
--- a/scsh-process.scm
+++ b/scsh-process.scm
@@ -240,6 +240,8 @@
                  (thunk (and thunk (lambda ()
                                      (clear-scsh-pending-processes!)
                                      (maybe-reinstall-deadlock-workaround!)
+                                     (unless sigchld-was-masked?
+                                       (signal-unmask! signal/chld))
                                      (thunk))))
                  (pid (cond-expand
                         (has-thread-killer
-- 
cgit v1.2.3