From: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 30 Oct 2020 14:00:39 +0000 (+0100)
Subject: mingw: Avoid SIGPIPE.
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=330961578930e220b2b9663b810fa0ae6cd01aae

mingw: Avoid SIGPIPE.

* 8sync/systems/web.scm (initialize): Only set SIGPIPE if it is
available.
---

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