~ 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