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

Took collection path simplification out of this file.

Browse Source 
svn: r17729
This commit is contained in:
Carl Eastlund 2010-01-19 03:38:55 +00:00
parent d57b5fff61
commit 9fbf023d90
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/scheme/contract/private/blame.ss
View File

@ -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)