From c53ffd5314ae1d09d04cb28769071fc72dfd2b14 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sun, 8 Jun 2008 15:53:42 -0700
Subject: [PATCH] fixed lookahead-char bug that I just made.

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

diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index 023f8ed..c8ff022 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -836,8 +836,9 @@
     
     (define (lookahead-char-utf8-mode p who)
       (define (do-error p who)
+        ($set-port-index! p (fx+ ($port-index p) 1))
         (case (transcoder-error-handling-mode ($port-transcoder p))
-          [(ignore)  (lookahead-char p)]
+          [(ignore) (lookahead-char p)]
           [(replace) #\xFFFD]
           [(raise)
            (raise (make-i/o-decoding-error p))]
diff --git a/scheme/last-revision b/scheme/last-revision
index 0262e5e..a222952 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1506
+1507