diff options
-rw-r--r-- | bffe/server.scm | 24 |
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)) |