>From 0cf8cd12e55ac2214875af0c03f1676af5a57ab0 Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Sun, 13 Oct 2013 12:50:28 +0200
Subject: [PATCH] Fix read-string!'s EINTR handling in stream ports (non-fixnum
 in rem. byte calc)

---
 library.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/library.scm b/library.scm
index 9ed04e3..d95724a 100644
--- a/library.scm
+++ b/library.scm
@@ -1817,10 +1817,9 @@ EOF
 		      ((fx< len 0)
 		       (##sys#update-errno)
 		       (if (eq? (errno) (foreign-value "EINTR" int))
-			   (let ((len (fx< (fxneg len) 1)))
-			     (##sys#dispatch-interrupt
-			      (lambda () 
-				(loop (fx- rem len) (fx+ act len) (fx+ start len)))))
+			   (##sys#dispatch-interrupt
+			    (lambda ()
+			      (loop (fx- rem len) (fx+ act len) (fx+ start len))))
 			   (##sys#signal-hook
 			    #:file-error 'read-string!
 			    (##sys#string-append "cannot read from port - " strerror)
-- 
1.8.3.4