fixed lookahead-char bug that I just made.

2008-06-08 15:53:42 -07:00
parent 665ca784d1
commit c53ffd5314
2 changed files with 3 additions and 2 deletions
@@ -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))]
@@ -1 +1 @@
-1506
+1507