diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-16 22:10:54 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-16 23:28:34 +0200 |
commit | dd0dcb52f7914b10e282459d221d6ef0bd46ecd3 (patch) | |
tree | e40ea0d4ddbd2e96a714401a0d83ab79ea0b5d97 | |
parent | Extend catch to allow pre-unwind handlers. (diff) | |
download | calp-dd0dcb52f7914b10e282459d221d6ef0bd46ecd3.tar.gz calp-dd0dcb52f7914b10e282459d221d6ef0bd46ecd3.tar.xz |
Better error handling when submitting events.
Diffstat (limited to '')
-rw-r--r-- | module/calp/server/routes.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm index 1f622c2a..e8676e6f 100644 --- a/module/calp/server/routes.scm +++ b/module/calp/server/routes.scm @@ -271,6 +271,10 @@ (catch* (lambda () (add-and-save-event global-event-object calendar event)) + ((pre-unwind #t) + (lambda _ + (let ((stack (make-stack #t))) + (display-backtrace stack (current-error-port))))) (warning (lambda (err fmt args) (define str (format #f "~?" fmt args)) |