Call web server exception handlers with the request

So that this can be used when reporting the exception.
2025-01-29 16:18:15 +00:00 · 2025-01-29 16:18:15 +00:00 · c641c19ce4
commit c641c19ce4
parent b5cc5fd077
2 changed files with 7 additions and 5 deletions
--- a/tests/web-server.scm
+++ b/tests/web-server.scm
@ -44,7 +44,7 @@
              (values '((content-type . (text/plain)))
                      "Hello, World!"))
            #:write-response-exception-handler
-            (lambda (exn)
+            (lambda (exn request)
              (spawn-fiber
               (lambda ()
                 (put-message exception-handled-sucecssfully-channel