~ chicken-core (chicken-5) 7e7d44aca43f5522c138668a45baaaae823f8877


commit 7e7d44aca43f5522c138668a45baaaae823f8877
Author:     Christian Kellermann <ckeen@pestilenz.org>
AuthorDate: Mon Jun 18 16:43:46 2012 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Mon Jun 18 16:43:46 2012 +0200

    Correct typo in EAGAIN patch spotted by Marijn

diff --git a/posixunix.scm b/posixunix.scm
index 18390613..a134904c 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -1311,7 +1311,7 @@ EOF
 		   (let ([cnt (##core#inline "C_read" fd buf bufsiz)])
 		     (cond ((fx= cnt -1)
 			    (select _errno
-			      ((_ewouldblock _egain)
+			      ((_ewouldblock _eagain)
 			       (##sys#thread-block-for-i/o! ##sys#current-thread fd #:input)
 			       (##sys#thread-yield!)
 			       (loop) )
Trap