fixed lookahead-char bug that I just made.

This commit is contained in:
Abdulaziz Ghuloum 2008-06-08 15:53:42 -07:00
parent 665ca784d1
commit c53ffd5314
2 changed files with 3 additions and 2 deletions

View File

@ -836,6 +836,7 @@
(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]

View File

@ -1 +1 @@
1506
1507