Seems to fix Robby's issue with DrRacket REPL

2011-01-20 20:52:50 -07:00 · 2011-01-20 20:52:50 -07:00 · faa0632de8
commit faa0632de8
parent 8c513f2b32
1 changed files with 1 additions and 1 deletions
--- a/collects/xml/private/reader.rkt
+++ b/collects/xml/private/reader.rkt
@ -174,7 +174,7 @@
 (define (lex in pos)
  (let ([c (peek-char-or-special in)])
    (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-tag-cdata-pi-comment in pos)]
      [(not (char? c)) (read-char-or-special in)]