A single-character fix for `##sys#custom-input-port`, where it was
checking the value of `errno` (the procedure) rather than `_errno` (the
actual errno) after a `C_read`.
Evan
>From 9522486398ac7ce89d65963ae3b1f31c5e1fe707 Mon Sep 17 00:00:00 2001
From: Evan Hanson <ev...@thunktastic.com>
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
_______________________________________________
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
