diff options
author | Christopher Baines <mail@cbaines.net> | 2024-05-13 15:22:32 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-05-13 15:22:32 +0100 |
commit | c592c83cccdc4c33de5bf7557137a2ecaa7b3576 (patch) | |
tree | ba910323fed325e075523cc45412f621bb7bd2da | |
parent | 0e89dbb67e4925cec6b0120c5ed9e8a861a0c1b1 (diff) | |
download | nar-herder-c592c83cccdc4c33de5bf7557137a2ecaa7b3576.tar nar-herder-c592c83cccdc4c33de5bf7557137a2ecaa7b3576.tar.gz |
Fix with-port-timeouts without fibers
-rw-r--r-- | nar-herder/utils.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/nar-herder/utils.scm b/nar-herder/utils.scm index 7be0482..4261b05 100644 --- a/nar-herder/utils.scm +++ b/nar-herder/utils.scm @@ -746,8 +746,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))))) + (* timeout internal-time-units-per-second)))) (let loop ((poll-value (port-poll port mode poll-timeout-ms))) (if (= poll-value 0) |