~ 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