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

adjust the multiple parties of blame printouts

Browse Source
This commit is contained in:
Robby Findler 2013-03-20 19:43:33 -05:00
parent e5d91baa2c
commit 8085707a8c
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

@ -202,8 +202,17 @@
[else
(format "~a:" self-or-not)]))
(define blaming-line
(format " blaming: ~a" (show/display (convert-blame-party (blame-positive blme)))))
(define blame-parties (blame-positive blme))
(define blaming-line
(cond
[(null? (cdr blame-parties))
(format " blaming: ~a" (car blame-parties))]
[else
(apply
string-append
" blaming multiple parties:"
(for/list ([party (in-list blame-parties)])
(format "\n ~a" party)))]))
(define from-line
(if (blame-original? blme)