diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-06-19 10:47:08 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-06-19 10:47:08 +0100 |
| commit | cfb4c900c35c1ab0c0f15a09d15ae61fb4762cc1 (patch) | |
| tree | beecc6b61b389725905e566b36a2d47a374c7ca5 /guix-build-coordinator | |
| parent | c9fe0a3765aec4e39895bf3ba6e99252d9887477 (diff) | |
| download | build-coordinator-cfb4c900c35c1ab0c0f15a09d15ae61fb4762cc1.tar build-coordinator-cfb4c900c35c1ab0c0f15a09d15ae61fb4762cc1.tar.gz | |
Add missing %random-state for the with-timeout syntax
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/utils.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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 |