From 193617f9176c46f9389437e6fae955c522f4a9bc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 2 Jan 2011 17:00:19 -0600 Subject: [PATCH] added the 'blaming' part of the contract message to self-contract violations (but kept 'self-') --- collects/racket/contract/private/blame.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/racket/contract/private/blame.rkt b/collects/racket/contract/private/blame.rkt index 5e5cf3d077..5cdb913fd3 100644 --- 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"))