From 3c5511e5b0abdd35fe6936a13023c509b215f823 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Sat, 5 Sep 2009 17:33:28 +0000 Subject: [PATCH] We shouldn't blame the context for both positive and negative here -- the positive blame should be the struct itself. We'll get that blame via (current-contract-region), since the expression is within the with-contract. svn: r15890 --- collects/scheme/private/contract.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss index bb6ffefff7..17786eb44f 100644 --- a/collects/scheme/private/contract.ss +++ b/collects/scheme/private/contract.ss @@ -385,7 +385,7 @@ improve method arity mismatch contract violation error messages? #:guard (-contract (-> super-contracts ... non-auto-contracts ... symbol? any) guard - blame-id blame-id + (current-contract-region) blame-id #'maker)))))))))] [(_ name . bad-fields) (identifier? #'name)