diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-06-13 08:10:32 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-06-13 08:10:32 +0100 |
| commit | 962f7599fe135e29f45c9ffac083de1004887a83 (patch) | |
| tree | 5e4340a406b1eb42db7778a9b5887756628b7de1 | |
| parent | c53209b39e77e7217c23b193df454dd469938266 (diff) | |
| download | bffe-962f7599fe135e29f45c9ffac083de1004887a83.tar bffe-962f7599fe135e29f45c9ffac083de1004887a83.tar.gz | |
Add exception handling for the exception handling
| -rw-r--r-- | bffe/manage-builds.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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) |