diff options
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r-- | guix-build-coordinator/agent.scm | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index d970a24..ed2adb2 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -210,20 +210,21 @@ (process-job-with-queue job-args)) (vector->list (assoc-ref details "builds"))) - (call-with-new-thread - (lambda () - (sigaction SIGUSR1 - (lambda _ - (display-info))) - - (while #t (sleep 100000)))) - - (call-with-new-thread - (lambda () - (let loop ((line (get-line (current-input-port)))) - (unless (eof-object? line) - (display-info) - (loop (get-line (current-input-port))))))) + (unless (running-on-the-hurd?) + (call-with-new-thread + (lambda () + (sigaction SIGUSR1 + (lambda _ + (display-info))) + + (while #t (sleep 100000)))) + + (call-with-new-thread + (lambda () + (let loop ((line (get-line (current-input-port)))) + (unless (eof-object? line) + (display-info) + (loop (get-line (current-input-port)))))))) (while #t (let ((current-threads (count-threads)) |