worker: Fix REQUEST_PERIOD read.

* src/cuirass/scripts/remote-worker (%request-period): Fix period read.
2021-04-14 12:00:11 +02:00 · 2021-04-14 12:00:11 +02:00 · f97bf6b75f
parent 29dc6015a8
commit f97bf6b75f
1 changed files with 3 additions and 3 deletions
--- 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)