Improve the agent parallel job processing

1 files changed, 5 insertions, 4 deletions

diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index 92104f2..5b08a9b 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -49,8 +49,9 @@
           ((pid . status)
            (hashv-remove! processes pid)
            (simple-format (current-error-port)
-                          "pid ~A failed with status ~A\n"
-                          pid status)
+                          "pid ~A failed with exit val ~A\n"
+                          pid
+                          (status:exit-val status))
 
            ;; Recurse, to check for other finished processes.
            (wait-on-processes)
@@ -58,7 +59,7 @@
       (lambda (key . args)
         (simple-format #t "wait-on-processes: ~A: ~A\n"
                        key args)
-        #f)))
+        #t)))
 
   (define (fork-and-process-job job-args)
     (match (primitive-fork)
@@ -142,7 +143,7 @@
                 (report-setup-failure coordinator-uri uuid password
                                       (assoc-ref build "uuid")
                                       pre-build-status)))))
-      (exit 0))
+      (primitive-exit 0))
 
     (let ((details (submit-status coordinator-uri uuid password 'idle)))
       (let ((builds (vector->list (assoc-ref details "builds"))))