diff options
| -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 |