Report backtraces in the state channel

1 files changed, 14 insertions, 10 deletions

diff --git a/bffe/server.scm b/bffe/server.scm
index 1bbbe67..c725d2f 100644
--- a/bffe/server.scm
+++ b/bffe/server.scm
@@ -152,16 +152,20 @@
                                                    exn))
                                 #f)
                             (lambda ()
-                              (let ((response
-                                     body
-                                     (http-get*
-                                      (string->uri
-                                       (string-append event-source "/state")))))
-                                (let ((state
-                                       (json->scm body)))
-                                  (put-message reply-channel
-                                               state)
-                                  state)))
+                              (with-throw-handler #t
+                                (lambda ()
+                                  (let ((response
+                                         body
+                                         (http-get*
+                                          (string->uri
+                                           (string-append event-source "/state")))))
+                                    (let ((state
+                                           (json->scm body)))
+                                      (put-message reply-channel
+                                                   state)
+                                      state)))
+                                (lambda _
+                                  (backtrace))))
                             #:unwind? #t)))
                      (if new-state
                          (loop (time-second (current-time))