From 6e4d1911455c85e785656f9b0b4e2fa3da951704 Mon Sep 17 00:00:00 2001
From: Puck Meerburg <puck@puckipedia.com>
Date: Mon, 23 Jun 2025 12:22:20 +0000
Subject: [PATCH] (zilch magic): close the daemon connection when we're done
 with it

---
 core/src/magic.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/src/magic.sld b/core/src/magic.sld
index 1453903..54b103b 100644
--- a/core/src/magic.sld
+++ b/core/src/magic.sld
@@ -554,7 +554,7 @@
         (cons
          (thread-start!
            (make-thread
-            (lambda () (call/cc (lambda (cc) (builder cc (daemon-connect)))))
+            (lambda () (define thread-conn (daemon-connect)) (call/cc (lambda (cc) (builder cc thread-conn))) (daemon-close thread-conn))
             (string-append "ca-builder-" (number->string i))))
          builder-threads)))