Seems to fix Robby's issue with DrRacket REPL

This commit is contained in:
Jay McCarthy 2011-01-20 20:52:50 -07:00
parent 8c513f2b32
commit faa0632de8

View File

@ -174,7 +174,7 @@
(define (lex in pos) (define (lex in pos)
(let ([c (peek-char-or-special in)]) (let ([c (peek-char-or-special in)])
(cond (cond
[(eof-object? c) (EOF (pos) (pos))] [(eof-object? c) (read-char in) (EOF (pos) (pos))]
[(eq? c #\&) (lex-entity in pos)] [(eq? c #\&) (lex-entity in pos)]
[(eq? c #\<) (lex-tag-cdata-pi-comment in pos)] [(eq? c #\<) (lex-tag-cdata-pi-comment in pos)]
[(not (char? c)) (read-char-or-special in)] [(not (char? c)) (read-char-or-special in)]