mingw: Avoid SIGPIPE.

[8sync.git] / 8sync / systems / web.scm

diff --git a/8sync/systems/web.scm b/8sync/systems/web.scm
index 7381f1412e18638670d3735bafe39d77aeebc5f4..cde673787c05d47ab43b3ac4545aeaac1b6054c1 100644 (file)
--- 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