[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Mathieu Othacehe |
Date: |
Wed, 14 Apr 2021 09:05:57 -0400 (EDT) |
branch: master
commit f97bf6b75f72a331e1c8dffc6630054675ca27d1
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Wed Apr 14 12:00:11 2021 +0200
worker: Fix REQUEST_PERIOD read.
* src/cuirass/scripts/remote-worker (%request-period): Fix period read.
---
src/cuirass/scripts/remote-worker.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/cuirass/scripts/remote-worker.scm
b/src/cuirass/scripts/remote-worker.scm
index 56ecc17..67bc076 100644
--- a/src/cuirass/scripts/remote-worker.scm
+++ b/src/cuirass/scripts/remote-worker.scm
@@ -56,11 +56,11 @@
(define %stop-process?
(make-atomic-box #f))
-;; The build request period.
+;; The build request period in seconds.
(define %request-period
(make-parameter
- (or (string->number
- (getenv "REQUEST_PERIOD"))
+ (or (and=> (getenv "REQUEST_PERIOD")
+ string->number)
10)))
(define (show-help)