From 962f7599fe135e29f45c9ffac083de1004887a83 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 13 Jun 2023 08:10:32 +0100 Subject: Add exception handling for the exception handling --- bffe/manage-builds.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index e100254..b317824 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -298,7 +298,11 @@ (while #t (with-exception-handler (lambda (exn) - (log-msg 'ERROR "exception in submit builds thread: " exn)) + (with-exception-handler + (const #t) + (lambda () + (log-msg 'ERROR "exception in submit builds thread: " exn)) + #:unwind? #t)) (lambda () (for-each (lambda (repository-id) -- cgit v1.2.3