[Chicken-hackers] [PATCH] Add missing bufpos variable for read-buffered on tcp ports

[Evan Hanson]

---
 tcp.scm |    1 +
 1 file changed, 1 insertion(+)

diff --git a/tcp.scm b/tcp.scm
index ce7bb74..5389ed1 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)
-- 
1.7.10.4