diff options
| -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) |