cbaines/guile-knots
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix handling of client-loop exceptions

Browse source 
Maybe other things can go wrong here, so log so that there's some
information available.
This commit is contained in:
Christopher Baines 2025-02-19 12:44:47 +00:00
parent d597b77fcb
commit ca3d5a1781
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
knots/web-server.scm
View file

@ -338,7 +338,18 @@ on the procedure being called at any particular time."
(let loop ()
(cond
((with-exception-handler
(lambda _ #t)
(lambda (exn)
(unless (and (exception-with-origin? exn)
(string=? (exception-origin exn)
"fport_write"))
(display "knots web-server, exception in client loop:\n"
(current-error-port))
(print-exception
(current-error-port)
#f
'%exception
(list exn)))
#t)
(lambda ()
(or
(if (eq? #f connection-idle-timeout)
@ -350,7 +361,8 @@ on the procedure being called at any particular time."
(wrap-operation
(sleep-operation connection-idle-timeout)
(const #t)))))
(eof-object? (lookahead-u8 client)))))
(eof-object? (lookahead-u8 client))))
#:unwind? #t)
(close-port client))
(else
(let ((keep-alive? (handle-request handler client