Took collection path simplification out of this file.
svn: r17729
This commit is contained in:
parent
d57b5fff61
commit
9fbf023d90
|
@ -45,24 +45,8 @@
|
||||||
(current-continuation-marks)
|
(current-continuation-marks)
|
||||||
b)))
|
b)))
|
||||||
|
|
||||||
(define (simplify-source loc)
|
|
||||||
(let* ([loc (build-source-location loc)]
|
|
||||||
[src (srcloc-source loc)])
|
|
||||||
(if (path? src)
|
|
||||||
(let* ([rel (path->main-collects-relative src)])
|
|
||||||
(if (pair? rel)
|
|
||||||
(struct-copy srcloc loc
|
|
||||||
[source
|
|
||||||
(apply build-path
|
|
||||||
(bytes->path #"<collects>")
|
|
||||||
(map bytes->path-element (cdr rel)))])
|
|
||||||
loc))
|
|
||||||
loc)))
|
|
||||||
|
|
||||||
(define (default-blame-format b x custom-message)
|
(define (default-blame-format b x custom-message)
|
||||||
(let* ([source-message (source-location->prefix
|
(let* ([source-message (source-location->prefix (blame-source b))]
|
||||||
(simplify-source
|
|
||||||
(blame-source b)))]
|
|
||||||
[guilty-message (show (blame-guilty b))]
|
[guilty-message (show (blame-guilty b))]
|
||||||
[contract-message (show (blame-contract b))]
|
[contract-message (show (blame-contract b))]
|
||||||
[value-message (if (blame-value b)
|
[value-message (if (blame-value b)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user