diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-15 17:11:09 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-15 17:11:09 +0100 |
| commit | 91348bd774aa4f1f2d789025728c323dcde7b466 (patch) | |
| tree | 798f0d3718e12d4e53ff9aa3155f9dcd12530480 | |
| parent | 47027afe12c2eb41d4f391dac4a7cd3b76133b45 (diff) | |
| download | nar-herder-91348bd774aa4f1f2d789025728c323dcde7b466.tar nar-herder-91348bd774aa4f1f2d789025728c323dcde7b466.tar.gz | |
Fix make-wait-operation for use with port-poll
| -rw-r--r-- | nar-herder/utils.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/nar-herder/utils.scm b/nar-herder/utils.scm index 8cd540b..5bac2da 100644 --- a/nar-herder/utils.scm +++ b/nar-herder/utils.scm @@ -666,7 +666,7 @@ If already in the worker thread, call PROC immediately." (define (make-wait-operation ready? schedule-when-ready port port-ready-fd this-procedure) (make-base-operation #f (lambda _ - (and (ready? (port-ready-fd port)) values)) + (and (ready? port) values)) (lambda (flag sched resume) (define (commit) (match (atomic-box-compare-and-swap! flag 'W 'S) |