Fix error source location access for struct refactor.

2013-05-31 17:53:02 -04:00 · 2013-05-31 17:53:02 -04:00 · 8dfee2615c
commit 8dfee2615c
parent c8cd7cf21e
1 changed files with 1 additions and 1 deletions
--- a/collects/drracket/private/module-language.rkt
+++ b/collects/drracket/private/module-language.rkt
@ -1027,7 +1027,7 @@
              [(gold) 
               (send (get-defs) set-gold-highlighted-errors 
                     (remove-duplicates
-                      (apply append (map (λ (x) (vector-ref x 1)) error-messages+locs))))])
+                      (apply append (map exn-info-src-vecs error-messages+locs))))])
            (send (get-ints) set-error-ranges 
                  (set->list
                   (for*/set ([error-message+loc (in-list error-messages+locs)]