~ chicken-core (chicken-5) 32df2731097710ef8b98e6044080b243222b7858
commit 32df2731097710ef8b98e6044080b243222b7858
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Oct 13 06:02:23 2014 +1300
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Mon Oct 13 06:15:07 2014 +1300
Fix typo in ##sys#custom-input-port EAGAIN check.
diff --git a/posixunix.scm b/posixunix.scm
index b6f9fccc..3f368de5 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -1174,7 +1174,7 @@ EOF
(let ((res (##sys#file-select-one fd)))
(if (fx= -1 res)
(if (or (fx= _errno _ewouldblock)
- (rx= _errno _eagain))
+ (fx= _errno _eagain))
#f
(posix-error #:file-error loc "cannot select" fd nam))
(fx= 1 res))))]
Trap