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

Added simplification of collects paths to blame error printing.

Browse Source 
svn: r17690
This commit is contained in:
Carl Eastlund 2010-01-17 05:18:37 +00:00
parent 18e33c2ce1
commit 42b3b8820b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
#lang scheme/base #lang scheme/base
(require unstable/srcloc scheme/pretty) (require unstable/srcloc scheme/pretty "helpers.ss")
(provide blame? (provide blame?
make-blame make-blame
@ -44,7 +44,12 @@
b))) b)))
(define (default-blame-format b x custom-message) (define (default-blame-format b x custom-message)
(let* ([source-message (source-location->prefix (blame-source b))] (let* ([source-message
(let* ([loc (blame-source b)])
(source-location->prefix
(struct-copy
srcloc loc
[source (source->name (srcloc-source loc))])))]
[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)