From f3618358aa18e97db64813470164dc0b2a6e4078 Mon Sep 17 00:00:00 2001
From: Puck Meerburg <puck@puckipedia.com>
Date: Sun, 11 May 2025 22:21:07 +0000
Subject: [PATCH] (zilch magic): fix ca build error conditions more

---
 core/src/magic.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/src/magic.sld b/core/src/magic.sld
index c26d4af..a4092d0 100644
--- a/core/src/magic.sld
+++ b/core/src/magic.sld
@@ -454,7 +454,7 @@
             (condition-variable-broadcast! build-condvar)
             (when (error-object? e)
               (fprintf (current-error-port) "~S ~A" (thread-name (current-thread)) (error-object-message e)))
-            (quit))
+            (quit #f))
            (lambda ()
             (do-build conn item)))
           (builder quit conn))
@@ -486,6 +486,8 @@
          builder-threads)))
 
      (for-each (lambda (t) (thread-join! t)) builder-threads)
+     (when (eq? pending-count 'error)
+       (error "CA build failed"))
      root-pend)
    (define (drv-resolve-ca drv outputs)
      (if (drv-is-ca drv)