Fix exception origin in the knots web server

2025-02-19 17:34:45 +00:00 · 2025-02-19 17:34:45 +00:00 · 1fbd1f334a
commit 1fbd1f334a
parent 99245034ea
1 changed files with 1 additions and 1 deletions
--- a/knots/web-server.scm
+++ b/knots/web-server.scm
@ -341,7 +341,7 @@ on the procedure being called at any particular time."
          (lambda (exn)
            (unless (and (exception-with-origin? exn)
                         (string=? (exception-origin exn)
-                                   "fport_write"))
+                                   "fport_read"))
              (display "knots web-server, exception in client loop:\n"
                       (current-error-port))
              (print-exception