diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-08 09:44:16 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-08 10:58:42 +0100 |
| commit | 6cdcad3077e2dff3b3c0367bfcab8d2cf70ee7dc (patch) | |
| tree | abb84edb24603354172cd6b314e85ce3b65dbdd5 | |
| parent | 488db250783893c4803579866b1ba436a4d80ea4 (diff) | |
| download | nar-herder-6cdcad3077e2dff3b3c0367bfcab8d2cf70ee7dc.tar nar-herder-6cdcad3077e2dff3b3c0367bfcab8d2cf70ee7dc.tar.gz | |
Name an unnamed thread
| -rw-r--r-- | nar-herder/utils.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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 |