~ chicken-core (chicken-5) d0c1874c01ed8a94ad66e745d288f3b670c982dd
commit d0c1874c01ed8a94ad66e745d288f3b670c982dd
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:17:26 2014 +1300
Fix typo in ##sys#custom-input-port EAGAIN check.
diff --git a/posixunix.scm b/posixunix.scm
index 4e79c633..45bd288d 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