From bdda21312018000cd4d16e689fb2678c422a2322 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Fri, 7 Nov 2008 22:09:02 -0500
Subject: [PATCH] fixed lookahead-char so that it doesn't advance the port
 position on decoding errors.

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

diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss
index 06103cf..9b29873 100644
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@@ -907,7 +907,6 @@
     
     (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)]
           [(replace) #\xFFFD]
diff --git a/scheme/last-revision b/scheme/last-revision
index 8d0d61d..9c230f4 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1661
+1662