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

Fix exception origin in the knots web server

Browse source
This commit is contained in:
Christopher Baines 2025-02-19 17:34:45 +00:00
parent 99245034ea
commit 1fbd1f334a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
knots/web-server.scm
View file

@ -341,7 +341,7 @@ on the procedure being called at any particular time."
(lambda (exn) (lambda (exn)
(unless (and (exception-with-origin? exn) (unless (and (exception-with-origin? exn)
(string=? (exception-origin exn) (string=? (exception-origin exn)
"fport_write")) "fport_read"))
(display "knots web-server, exception in client loop:\n" (display "knots web-server, exception in client loop:\n"
(current-error-port)) (current-error-port))
(print-exception (print-exception