Remove backtrace printing from create-thread-pool

Just in case this is causing a problem with the exception handling within
proc.

1 files changed, 10 insertions, 11 deletions

diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 965edde..68c59d1 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -1176,18 +1176,17 @@ References: ~a~%"
     (define (thread-process-job job-args)
       (with-exception-handler
           (lambda (exn)
-            (simple-format (current-error-port)
-                           "job raised exception: ~A\n"
-                           job-args))
+            (with-exception-handler
+                (lambda _
+                  #f)
+              (lambda ()
+                ;; Logging may raise an exception, so try and just keep going.
+                (simple-format (current-error-port)
+                               "job raised exception: ~A\n"
+                               job-args))
+              #:unwind? #t))
         (lambda ()
-          (with-throw-handler #t
-            (lambda ()
-              (apply proc job-args))
-            (lambda (key . args)
-              (simple-format (current-error-port)
-                             "exception when handling job: ~A ~A\n"
-                             key args)
-              (backtrace))))
+          (apply proc job-args))
         #:unwind? #t))
 
     (define (start-thread thread-index)