[shepherd] 04/05: shepherd: Resolve 'handle-SIGCHLD' upfront.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 4f86c5dae916bc2e30914858caf4c9fb80114271
Author: Ludovic Courtès <address@hidden>
AuthorDate: Mon Apr 20 18:08:01 2020 +0200

    shepherd: Resolve 'handle-SIGCHLD' upfront.
    
    * modules/shepherd.scm (main): Call 'handle-SIGCHLD' before entering
    the 'next-command' loop.
---
 modules/shepherd.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/modules/shepherd.scm b/modules/shepherd.scm
index 704ea47..46faab6 100644
--- a/modules/shepherd.scm
+++ b/modules/shepherd.scm
@@ -276,6 +276,11 @@ socket file at FILE-NAME upon exit of PROC.  Return the 
values of PROC."
                (#t (display (getpid)))
                (_  #t))
 
+             ;; XXX: This call mostly to resolve 'handle-SIGCHLD' upfront.
+             ;; This works around Guile 3.0.2 occasionally failing with:
+             ;; "Failed to autoload handle-SIGCHLD in (ice-9 readline):"
+             (handle-SIGCHLD)
+
              (let next-command ()
                (define (read-from sock)
                  (match (accept sock)