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

Simplify exception handling in the web server

Browse source
This commit is contained in:
Christopher Baines 2025-02-06 16:45:22 +00:00
parent 6337103525
commit 7de5901a94
1 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
knots/web-server.scm
View file

@ -305,21 +305,7 @@ on the procedure being called at any particular time."
(lambda () (lambda ()
(with-exception-handler (with-exception-handler
(lambda (exn) (lambda (exn)
(let* ((stack (make-stack #t)) (print-backtrace-and-exception/knots exn)
(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)))
(raise-exception exn)) (raise-exception exn))
(lambda () (lambda ()
(body body-port))) (body body-port)))