>From 9522486398ac7ce89d65963ae3b1f31c5e1fe707 Mon Sep 17 00:00:00 2001
From: Evan Hanson <address@hidden>
Date: Thu, 22 Mar 2012 21:45:19 -0500
Subject: [PATCH] fix typo in _errno check in ##sys#custom-input-port

---
 posixunix.scm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/posixunix.scm b/posixunix.scm
index 95039ca..76a0349 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!)
-- 
1.7.9.4