From b3733bca21de607fd7a70319e66e3ff49996a974 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 15 Feb 2021 18:52:44 +0000 Subject: Avoid some threads and locks when running on the hurd I've see the process hang on the hurd, and I think this might help. --- guix-build-coordinator/agent-messaging/http.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'guix-build-coordinator/agent-messaging') diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 27e2419..1f2df0a 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -85,7 +85,9 @@ (string-drop agent-path 1)))))) (define (with-request-mutex thunk) - (monitor (thunk))) + (if (running-on-the-hurd?) + (thunk) + (monitor (thunk)))) (define (default-log level . components) (apply log-msg level components)) -- cgit v1.2.3