diff --git a/module/web/server/http.scm b/module/web/server/http.scm index 05bf46bf0..c5c393fc6 100644 --- a/module/web/server/http.scm +++ b/module/web/server/http.scm @@ -65,7 +65,8 @@ (port 8080) (socket (make-default-socket family addr port))) (listen socket 128) - (sigaction SIGPIPE SIG_IGN) + (when (defined? 'SIGPIPE) + (sigaction SIGPIPE SIG_IGN)) (let ((poll-set (make-empty-poll-set))) (poll-set-add! poll-set socket *events*) (make-http-server socket 0 poll-set)))