From 6f061356d52b614afa4337a33b248bcb071b0314 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 7 Sep 2023 15:16:25 +0100 Subject: Set thread names for worker threads --- nar-herder/utils.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/nar-herder/utils.scm b/nar-herder/utils.scm index 292d308..68d218d 100644 --- a/nar-herder/utils.scm +++ b/nar-herder/utils.scm @@ -436,9 +436,17 @@ falling back to en_US.utf8\n" (let ((channel (make-channel))) (for-each - (lambda _ + (lambda (thread-index) (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name + (string-append + name " w t " + (number->string thread-index)))) + (const #t)) + (let init ((args (initializer/safe))) (parameterize ((param args)) (let loop ((current-lifetime lifetime)) -- cgit v1.2.3