Fixed type error in source location conversion.

svn: r17714
This commit is contained in:
Carl Eastlund 2010-01-18 17:04:01 +00:00
parent 4d22b7a5f4
commit b0c93342d9

View File

@ -46,15 +46,18 @@
b)))
(define (simplify-source loc)
(let* ([src (srcloc-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)
(apply build-path
(bytes->path #"<collects>")
(map bytes->path-element (cdr rel)))
rel))
src)))
(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)
(let* ([source-message (source-location->prefix