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

small fix in blame-update and small change in error message for multiple blame labels

Browse Source
This commit is contained in:
chrdimo 2013-02-14 19:50:56 -05:00
parent a96b093d97
commit 61e896c8d7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,8 +101,8 @@
(struct-copy
blame
blame-info
[positive (append extra-positive pos)]
[negative (append extra-negative neg)])))
[positive (append (list extra-positive) pos)]
[negative (append (list extra-negative) neg)])))
(define (show-blame accessor)
(λ (blm)
@ -280,7 +280,7 @@
(define (convert-blame-party x)
(let ((preface
(cond [(< 1 (length x))
" -- Multiple blame parties due to option contract transfers --\n"]
" -- multiple blame parties due to option contract transfers --\n"]
[else ""])))
(string-append
preface