~ chicken-core (chicken-5) 59425bbbd622d68eb047651c8692c638a69a3af7

commit 59425bbbd622d68eb047651c8692c638a69a3af7
Author:     Evan Hanson <evhan@thunktastic.com>
AuthorDate: Thu Mar 22 21:45:19 2012 -0500
Commit:     Jim Ursetto <zbigniewsz@gmail.com>
CommitDate: Thu Mar 22 22:42:03 2012 -0500

    fix typo in _errno check in ##sys#custom-input-port
    
    (Fixes bug introduced in b7995839c0b481280bdeda117eb68bc0e78a40bf.
     See demonstration at
     http://paste.call-cc.org/paste?id=31cb941072e331d7dcbba4c67208842acbe27bbd)
    
    Signed-off-by: Jim Ursetto <zbigniewsz@gmail.com>

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