diff options
| -rw-r--r-- | src/web/server/fiberized.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/web/server/fiberized.scm b/src/web/server/fiberized.scm index 7769202..d4674b8 100644 --- a/src/web/server/fiberized.scm +++ b/src/web/server/fiberized.scm @@ -150,7 +150,13 @@ (setsockopt client SOL_SOCKET SO_SNDBUF (* 128 1024)) (if (file-port? output) - (sendfile output input size) + (catch 'system-error + (lambda () + (sendfile output input size)) + (lambda args + (unless (memv (system-error-errno args) + (list EPIPE ECONNRESET)) + (apply throw args)))) (dump-port input output)) (close-port output) (values)))))) |