~ chicken-core (chicken-5) d0c1874c01ed8a94ad66e745d288f3b670c982dd
commit d0c1874c01ed8a94ad66e745d288f3b670c982dd Author: Evan Hanson <evhan@foldling.org> AuthorDate: Mon Oct 13 06:02:23 2014 +1300 Commit: Evan Hanson <evhan@foldling.org> CommitDate: Mon Oct 13 06:17:26 2014 +1300 Fix typo in ##sys#custom-input-port EAGAIN check. diff --git a/posixunix.scm b/posixunix.scm index 4e79c633..45bd288d 100644 --- a/posixunix.scm +++ b/posixunix.scm @@ -1174,7 +1174,7 @@ EOF (let ((res (##sys#file-select-one fd))) (if (fx= -1 res) (if (or (fx= _errno _ewouldblock) - (rx= _errno _eagain)) + (fx= _errno _eagain)) #f (posix-error #:file-error loc "cannot select" fd nam)) (fx= 1 res))))]Trap