From 7de5901a948685c4b98081425a18a5ff0121d413 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 6 Feb 2025 16:45:22 +0000
Subject: [PATCH] Simplify exception handling in the web server

---
 knots/web-server.scm | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

diff --git a/knots/web-server.scm b/knots/web-server.scm
index a0d2412..7ed65c5 100644
--- a/knots/web-server.scm
+++ b/knots/web-server.scm
@@ -305,21 +305,7 @@ on the procedure being called at any particular time."
                                 (lambda ()
                                   (with-exception-handler
                                       (lambda (exn)
-                                        (let* ((stack (make-stack #t))
-                                               (error-string
-                                                (call-with-output-string
-                                                  (lambda (port)
-                                                    (print-exception
-                                                     port
-                                                     (stack-ref stack 2)
-                                                     '%exception
-                                                     (list exn))
-                                                    (display-backtrace
-                                                     stack
-                                                     port
-                                                     2)))))
-                                          (display error-string
-                                                   (current-error-port)))
+                                        (print-backtrace-and-exception/knots exn)
                                         (raise-exception exn))
                                     (lambda ()
                                       (body body-port)))