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

improved the error message reporting, PR 9062

Browse Source 
svn: r7722
This commit is contained in:
Robby Findler 2007-11-14 13:17:54 +00:00
parent fc94850251
commit bfe7279853
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drscheme/private/rep.ss
View File

@ -755,7 +755,16 @@ TODO
(let ([locs (filter (λ (loc) (and (is-a? (srcloc-source loc) text:basic<%>) (let ([locs (filter (λ (loc) (and (is-a? (srcloc-source loc) text:basic<%>)
(number? (srcloc-position loc)) (number? (srcloc-position loc))
(number? (srcloc-span loc)))) (number? (srcloc-span loc))))
raw-locs)]) (map (λ (srcloc)
(if (equal? (normal-case-path (normalize-path (send definitions-text get-filename)))
(normal-case-path (normalize-path (srcloc-source srcloc))))
(make-srcloc definitions-text
(srcloc-line srcloc)
(srcloc-column srcloc)
(srcloc-position srcloc)
(srcloc-span srcloc))
srcloc))
raw-locs))])
(reset-highlighting) (reset-highlighting)
(set! error-ranges locs) (set! error-ranges locs)