~ chicken-core (chicken-5) 931ba53824d4c8d7fcd38ea9992f9d116ff94c12

commit 931ba53824d4c8d7fcd38ea9992f9d116ff94c12
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Oct 13 06:16:40 2014 +1300
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sun Oct 12 20:49:24 2014 +0200

    Add missing bufpos variable for read-buffered on tcp ports
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/tcp.scm b/tcp.scm
index ce7bb74f..5389ed12 100644
--- a/tcp.scm
+++ b/tcp.scm
@@ -359,6 +359,7 @@ EOF
       (let* ((buf (make-string +input-buffer-size+))
 	     (data (vector fd #f #f buf 0))
 	     (buflen 0)
+	     (bufpos 0)
 	     (bufindex 0)
 	     (iclosed #f) 
 	     (oclosed #f)