added the 'blaming' part of the contract message to self-contract violations (but kept 'self-')

2011-01-02 17:00:19 -06:00 · 2011-01-02 17:00:19 -06:00 · 193617f917
commit 193617f917
parent 47e3db06ff
1 changed files with 5 additions and 1 deletions
--- a/collects/racket/contract/private/blame.rkt
+++ b/collects/racket/contract/private/blame.rkt
@ -87,9 +87,13 @@
      [(blame-original? b)
       (string-append
        (format "self-contract violation: ~a\n" custom-message)
-        (format "  contract~a from ~a~a" 
+        (format "  contract~a from ~a~a blaming ~a~a" 
                value-message 
                positive-message
+                (if (regexp-match #rx"\n" positive-message)
+                    " "
+                    ",")
+                positive-message
                (if (regexp-match #rx"\n" positive-message)
                    ""
                    "\n"))