Fixed a missing blame swap.

svn: r17748 original commit: ad9968493ec76a2b3fc803f58b43f519c47d5c6f
2010-01-19 09:24:48 +00:00 · 2010-01-19 09:24:48 +00:00 · 6e6139e8ae
commit 6e6139e8ae
parent d9e5df35ed
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/private/contract-arr-obj-helpers.ss
+++ b/collects/mzlib/private/contract-arr-obj-helpers.ss
@ -888,7 +888,7 @@
                 (syntax
                  ((x ...)
                   (begin
-                     (check-pre-expr->pp/h val pre-expr blame)
+                     (check-pre-expr->pp/h val pre-expr (blame-swap blame))
                     (let ([dom-id ((contract-projection (coerce-contract 'stx-name dom)) 
                                    (blame-swap blame))]
                           ...)