;; 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