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

Fixed type error in source location conversion.

Browse Source 
svn: r17714
This commit is contained in:
Carl Eastlund 2010-01-18 17:04:01 +00:00
parent 4d22b7a5f4
commit b0c93342d9
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,15 +46,18 @@
b))) b)))
(define (simplify-source loc) (define (simplify-source loc)
(let* ([src (srcloc-source loc)]) (let* ([loc (build-source-location loc)]
[src (srcloc-source loc)])
(if (path? src) (if (path? src)
(let* ([rel (path->main-collects-relative src)]) (let* ([rel (path->main-collects-relative src)])
(if (pair? rel) (if (pair? rel)
(apply build-path (struct-copy srcloc loc
(bytes->path #"<collects>") [source
(map bytes->path-element (cdr rel))) (apply build-path
rel)) (bytes->path #"<collects>")
src))) (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