diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-08-09 20:13:33 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-08-09 20:15:13 +0100 |
| commit | 414ff3c84a376a87a8661e91a5fd97709d552074 (patch) | |
| tree | 24e348664398f554d9b8c69f812221b0445c8027 /guix-build-coordinator/utils.scm | |
| parent | c5412d66b058051b627ea0fe5c409860289ad1f1 (diff) | |
| download | build-coordinator-414ff3c84a376a87a8661e91a5fd97709d552074.tar build-coordinator-414ff3c84a376a87a8661e91a5fd97709d552074.tar.gz | |
Name more threads
To help with debugging.
Diffstat (limited to 'guix-build-coordinator/utils.scm')
| -rw-r--r-- | guix-build-coordinator/utils.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 17cabc8..a91e771 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -1076,6 +1076,12 @@ References: ~a~%" (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 @@ -1229,6 +1235,12 @@ References: ~a~%" (if (procedure? thread-count-parameter) (call-with-new-thread (lambda () + (catch 'system-error + (lambda () + (set-thread-name + (string-append name " p t "))) + (const #t)) + (lock-mutex pool-mutex) (while #t (with-exception-handler |