From 91348bd774aa4f1f2d789025728c323dcde7b466 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 15 Jun 2024 17:11:09 +0100
Subject: Fix make-wait-operation for use with port-poll

---
 nar-herder/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3