From 330961578930e220b2b9663b810fa0ae6cd01aae Mon Sep 17 00:00:00 2001 From: "Jan (janneke) Nieuwenhuizen" Date: Fri, 30 Oct 2020 15:00:39 +0100 Subject: [PATCH] mingw: Avoid SIGPIPE. * 8sync/systems/web.scm (initialize): Only set SIGPIPE if it is available. --- 8sync/systems/web.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/8sync/systems/web.scm b/8sync/systems/web.scm index 7381f14..cde6737 100644 --- a/8sync/systems/web.scm +++ b/8sync/systems/web.scm @@ -93,7 +93,8 @@ ;; Andy Wingo added the line with this commit: ;; * module/web/server/http.scm (http-open): Ignore SIGPIPE. Keeps the ;; server from dying in some circumstances. - (sigaction SIGPIPE SIG_IGN)) + (when (defined? 'SIGPIPE) + (sigaction SIGPIPE SIG_IGN))) ;; @@: Borrowed from Guile itself / Fibers -- 2.31.1