From 2f2655ee00920975d96303e0570cc9119823384f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 17 May 2020 23:19:20 +0100 Subject: Reduce the wait before checking for exited processes --- guix-build-coordinator/agent.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index b02b90f..29920b6 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -77,7 +77,7 @@ (while #t (unless (wait-on-processes) - (unless (eq? 0 (sleep 5)) + (unless (eq? 0 (sleep 1)) (exit 0))) (let ((current-processes (hash-count (const #t) processes))) (when (< current-processes max-processes) -- cgit v1.2.3