no source information on eof errors

svn: r6866
2007-07-09 05:50:30 +00:00 · 2007-07-09 05:50:30 +00:00 · c36c24f9b4
commit c36c24f9b4
parent 6355ad12f4
1 changed files with 2 additions and 1 deletions
--- a/collects/scribble/reader.ss
+++ b/collects/scribble/reader.ss
@ -165,7 +165,8 @@
    (define (read-error* line col pos span msg . xs)
      (let* ([eof? (and (eq? 'eof msg) (pair? xs))]
             [msg  (apply format (if eof? xs (cons msg xs)))]
-             [loc  (cond [(and line col) (format "at ~a:~a" line col)]
+             [loc  (cond [eof? #f]
+                         [(and line col) (format "at ~a:~a" line col)]
                         [pos (format "at #~a" pos)]
                         [else #f])]
             [loc  (cond [(and source-name loc)