From 0e697067cb8c33102d2dc2fef0d6f6fe59f7935b Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Sun, 31 Jan 2010 00:30:00 +0000
Subject: [PATCH] Uniformly "unpack" contract blame party names.

svn: r17904
---
 collects/scheme/contract/private/base.ss | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/collects/scheme/contract/private/base.ss b/collects/scheme/contract/private/base.ss
index bfba306647..b311f2ae10 100644
--- a/collects/scheme/contract/private/base.ss
+++ b/collects/scheme/contract/private/base.ss
@@ -27,7 +27,12 @@ improve method arity mismatch contract violation error messages?
   (syntax-case stx ()
     [(_ c v pos neg name loc)
      (syntax/loc stx
-       (apply-contract c v pos neg name loc))]
+       (apply-contract c
+                       v
+                       (unpack-blame pos)
+                       (unpack-blame neg)
+                       name
+                       loc))]
     [(_ c v pos neg)
      (syntax/loc stx
        (apply-contract c