From 2276cb296efa4e38c521070b68717b7b44f1c09e Mon Sep 17 00:00:00 2001 From: Maxime Devos Date: Sun, 17 Sep 2023 23:13:38 +0200 Subject: [PATCH] Fix wait-until-port-writable-operation. * fibers/io-wakeup.scm (wait-until-port-writable): Replace readable? by writable?. Reported-by: cbaines See: https://github.com/wingo/fibers/pull/96#pullrequestreview-1628912400 --- fibers/io-wakeup.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fibers/io-wakeup.scm b/fibers/io-wakeup.scm index 188d83e..83b7a40 100644 --- 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