Seems to fix Robby's issue with DrRacket REPL
This commit is contained in:
parent
8c513f2b32
commit
faa0632de8
|
@ -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)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user