fixed lookahead-char so that it doesn't advance the port position on

decoding errors.
2008-11-07 22:09:02 -05:00 · 2008-11-07 22:09:02 -05:00 · bdda213120
parent a9da844a46
commit bdda213120
2 changed files with 1 additions and 2 deletions
--- 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]
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1661
+1662