diff options
| -rw-r--r-- | guix-qa-frontpage/utils.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-qa-frontpage/utils.scm b/guix-qa-frontpage/utils.scm index cff6476..bff563b 100644 --- a/guix-qa-frontpage/utils.scm +++ b/guix-qa-frontpage/utils.scm @@ -141,7 +141,7 @@ (let ((timeout-internal (+ (get-internal-real-time) (* internal-time-units-per-second - (/ timeout 1000))))) + timeout)))) (let loop ((poll-value (port-poll port mode poll-timeout-ms))) (if (= poll-value 0) |