From cfb4c900c35c1ab0c0f15a09d15ae61fb4762cc1 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 19 Jun 2020 10:47:08 +0100 Subject: Add missing %random-state for the with-timeout syntax --- guix-build-coordinator/utils.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'guix-build-coordinator') diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 5c0fffd..22da21a 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -596,6 +596,9 @@ References: ~a~%" (values process-job count-jobs))) +(define %random-state + (seed->random-state (+ (ash (cdr (gettimeofday)) 32) (getpid)))) + ;; copied from (guix scripts substitute) (define-syntax-rule (with-timeout duration handler body ...) "Run BODY; when DURATION seconds have expired, call HANDLER, and run BODY -- cgit v1.2.3