From 6cdcad3077e2dff3b3c0367bfcab8d2cf70ee7dc Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 8 Sep 2023 09:44:16 +0100
Subject: Name an unnamed thread

---
 nar-herder/utils.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/nar-herder/utils.scm b/nar-herder/utils.scm
index 68d218d..f57c27b 100644
--- a/nar-herder/utils.scm
+++ b/nar-herder/utils.scm
@@ -325,6 +325,12 @@
     (if (procedure? thread-count-parameter)
         (call-with-new-thread
          (lambda ()
+           (catch 'system-error
+             (lambda ()
+               (set-thread-name
+                (string-append name " q t")))
+             (const #t))
+
            (while #t
              (sleep 15)
              (with-mutex queue-mutex
-- 
cgit v1.2.3