Merge pull request #98 from wingo/pr-96-spinoff

Fix wait-until-port-writable-operation.
wingo · Sep 17, 2023 · f8ec3c4 · f8ec3c4
2 parents ce89657 + 2276cb2
commit f8ec3c4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fibers/io-wakeup.scm b/fibers/io-wakeup.scm
@@ -114,7 +114,7 @@ of the operation."
 
 (define (wait-until-port-writable-operation port)
   "Make an operation that will succeed when PORT is writable."
-  (make-write-operation (try-ready readable? port) port))
+  (make-write-operation (try-ready writable? port) port))
 
 (define (with-x-waiting-is-failure port current-x-waiter try-fn)
   "Return a thunk like TRY-FN, except that it also fails when