From 6e6139e8ae21cea8b26a150fce7b4a4270f10f61 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Tue, 19 Jan 2010 09:24:48 +0000 Subject: [PATCH] Fixed a missing blame swap. svn: r17748 original commit: ad9968493ec76a2b3fc803f58b43f519c47d5c6f --- collects/mzlib/private/contract-arr-obj-helpers.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/contract-arr-obj-helpers.ss b/collects/mzlib/private/contract-arr-obj-helpers.ss index de1788c..ea6d71c 100644 --- 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))] ...)