From 8085707a8cb416372a6487a593ce2341da8954e4 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 20 Mar 2013 19:43:33 -0500
Subject: [PATCH] adjust the multiple parties of blame printouts

---
 collects/racket/contract/private/blame.rkt | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/collects/racket/contract/private/blame.rkt b/collects/racket/contract/private/blame.rkt
index 2be079c02e..798a7c0b0a 100644
--- a/collects/racket/contract/private/blame.rkt
+++ b/collects/racket/contract/private/blame.rkt
@@ -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)