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

do not show source-name in errors, since raise-read-error does that anyway

Browse Source 
svn: r6867
This commit is contained in:
Eli Barzilay 2007-07-09 05:52:47 +00:00
parent c36c24f9b4
commit 6a01207e1c
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/reader.ss
View File

@ -169,10 +169,6 @@
[(and line col) (format "at ~a:~a" line col)]
[pos (format "at #~a" pos)]
[else #f])]
[loc (cond [(and source-name loc)
(format "when reading ~a ~a" source-name loc)]
[source-name (format "when reading ~a" source-name)]
[else loc])]
[msg (if loc (format "~a (~a)" msg loc) msg)])
((if eof? raise-read-error raise-read-eof-error)
msg source-name line col pos span)))