>From 9522486398ac7ce89d65963ae3b1f31c5e1fe707 Mon Sep 17 00:00:00 2001 From: Evan Hanson 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