suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no source information on eof errors

Browse Source 
svn: r6866
This commit is contained in:
Eli Barzilay 2007-07-09 05:50:30 +00:00
parent 6355ad12f4
commit c36c24f9b4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scribble/reader.ss
View File

@ -165,7 +165,8 @@
(define (read-error* line col pos span msg . xs) (define (read-error* line col pos span msg . xs)
(let* ([eof? (and (eq? 'eof msg) (pair? xs))] (let* ([eof? (and (eq? 'eof msg) (pair? xs))]
[msg (apply format (if eof? xs (cons msg 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)] [pos (format "at #~a" pos)]
[else #f])] [else #f])]
[loc (cond [(and source-name loc) [loc (cond [(and source-name loc)