mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
http servers should ignore SIGPIPE by default
This commit is contained in:
parent
182048ed9a
commit
4dde693435
1 changed files with 1 additions and 0 deletions
|
@ -33,6 +33,7 @@
|
||||||
|
|
||||||
(define (run-http-server listener-or-addr servlet . o)
|
(define (run-http-server listener-or-addr servlet . o)
|
||||||
(let ((cfg (if (pair? o) (car o) (make-conf '() #f #f #f))))
|
(let ((cfg (if (pair? o) (car o) (make-conf '() #f #f #f))))
|
||||||
|
(set-signal-action! signal/pipe #f)
|
||||||
(run-net-server
|
(run-net-server
|
||||||
listener-or-addr
|
listener-or-addr
|
||||||
(command-handler
|
(command-handler
|
||||||
|
|
Loading…
Add table
Reference in a new issue