From bfe7279853a04006624a8069fe2f13c5ea661da6 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 14 Nov 2007 13:17:54 +0000
Subject: [PATCH] improved the error message reporting, PR 9062

svn: r7722
---
 collects/drscheme/private/rep.ss | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss
index 7238c64964..24a36ed59a 100644
--- a/collects/drscheme/private/rep.ss
+++ b/collects/drscheme/private/rep.ss
@@ -755,7 +755,16 @@ TODO
           (let ([locs (filter (λ (loc) (and (is-a? (srcloc-source loc) text:basic<%>)
                                             (number? (srcloc-position 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)
             
             (set! error-ranges locs)