diff options
| -rw-r--r-- | bffe/manage-builds.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index 9e26b07..e100254 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -295,11 +295,11 @@ #:name "submit-builds"))) (call-with-new-thread (lambda () - (with-exception-handler - (lambda (exn) - (log-msg 'ERROR "exception in submit builds thread: " exn)) - (lambda () - (while #t + (while #t + (with-exception-handler + (lambda (exn) + (log-msg 'ERROR "exception in submit builds thread: " exn)) + (lambda () (for-each (lambda (repository-id) (for-each @@ -357,5 +357,5 @@ ;; Wait until all the builds have been submitted (sleep 5)) - (sleep 60))) - #:unwind? #t)))))) + (sleep 60)))) + #:unwind? #t))))) |