diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-14 13:03:30 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-14 13:03:30 +0100 |
| commit | e5b48435163e60483b03e5f6f0e137fc9b8c2ae0 (patch) | |
| tree | f277ea985c3d66aca86b7993473e15d032cecba2 /guix-build-coordinator | |
| parent | ff814284f4cf046ad19dcee37f1b90df7d4b426c (diff) | |
| download | build-coordinator-e5b48435163e60483b03e5f6f0e137fc9b8c2ae0.tar build-coordinator-e5b48435163e60483b03e5f6f0e137fc9b8c2ae0.tar.gz | |
Fix the no-fibers-wait in with-fibers-port-timeouts
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/utils/fibers.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/guix-build-coordinator/utils/fibers.scm b/guix-build-coordinator/utils/fibers.scm index bfadadd..ec1db12 100644 --- a/guix-build-coordinator/utils/fibers.scm +++ b/guix-build-coordinator/utils/fibers.scm @@ -495,8 +495,7 @@ If already in the worker thread, call PROC immediately." ;; timed out overall. (let ((timeout-internal (+ (get-internal-real-time) - (* internal-time-units-per-second - (/ timeout 1000))))) + (* internal-time-units-per-second timeout)))) (let loop ((poll-value (port-poll port mode poll-timeout-ms))) (if (= poll-value 0) |