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

fixing backwards compatibility problems for blame-positive and blame-negative

Browse Source
This commit is contained in:
chrdimo 2013-01-28 16:56:32 -05:00
parent 5348a4d2de
commit b00810360b
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/racket/contract/private/blame.rkt
View File

@ -4,8 +4,8 @@
(provide blame?
(rename-out [-make-blame make-blame])
blame-source
blame-positive
blame-negative
(rename-out [show-blame-positive blame-positive])
(rename-out [show-blame-negative blame-negative])
blame-contract
blame-value
blame-original?
@ -104,6 +104,15 @@
[positive (append extra-positive pos)]
[negative (append extra-negative neg)])))
(define (show-blame accessor)
(λ (blm)
(let ([info (accessor blm)])
(cond [(empty? (rest info)) (first info)]
[else info]))))
(define show-blame-positive (show-blame blame-positive))
(define show-blame-negative (show-blame blame-negative))
(define (blame-swapped? b)
(not (blame-original? b)))