Uniformly "unpack" contract blame party names.

svn: r17904
2010-01-31 00:30:00 +00:00 · 2010-01-31 00:30:00 +00:00 · 0e697067cb
commit 0e697067cb
parent 29b628cb0a
1 changed files with 6 additions and 1 deletions
--- 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