diff options
Diffstat (limited to 'nar-herder/utils.scm')
| -rw-r--r-- | nar-herder/utils.scm | 10 |
1 files changed, 9 insertions, 1 deletions
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)) |