[no subject]

[Mathieu Othacehe]

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)