From a0c83468408c77c7882e324da7039de941f23918 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sun, 8 Jun 2008 06:19:29 -0700
Subject: [PATCH] fixed bug in IO where the system was silently eating up any
 remaining bytes while refilling a buffer.

---
 scheme/ikarus.conditions.ss | 2 +-
 scheme/ikarus.io.ss         | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.conditions.ss b/scheme/ikarus.conditions.ss
index a8bdefd..ba1ccf2 100644
--- a/scheme/ikarus.conditions.ss
+++ b/scheme/ikarus.conditions.ss
@@ -399,7 +399,7 @@
                        (print-simple-condition (car ls) p)
                        (f (cdr ls) (+ i 1)))))))]
           [else 
-           (display "Non-condition object: " p)
+           (display " Non-condition object: " p)
            (write x p)
            (newline p)]))
       (case-lambda
diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index d03edcb..c092560 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -714,7 +714,7 @@
             [(fx>= j 0)
              (unless (fx<= j max)
                (die who "read! returned a value out of range" j))
-             ($set-port-index! p c0)
+             ($set-port-index! p 0)
              ($set-port-size! p (fx+ c1 c0))
              c1]
             [else