From cb473252157583b129f552a731770a2cac2bae05 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 7 Jul 2007 15:19:46 +0000 Subject: [PATCH] fixed parameter contracts svn: r6833 --- collects/mzlib/private/contract.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mzlib/private/contract.ss b/collects/mzlib/private/contract.ss index f94436f8cd..04114abed3 100644 --- a/collects/mzlib/private/contract.ss +++ b/collects/mzlib/private/contract.ss @@ -1988,7 +1988,7 @@ improve method arity mismatch contract violation error messages? (let ([c-proc ((proj-get (parameter/c-ctc ctc)) (parameter/c-ctc ctc))]) (λ (pos-blame neg-blame src-info orig-str) (let ([partial-neg-contract (c-proc neg-blame pos-blame src-info orig-str)] - [partial-pos-contract (c-proc neg-blame pos-blame src-info orig-str)]) + [partial-pos-contract (c-proc pos-blame neg-blame src-info orig-str)]) (λ (val) (cond [(parameter? val)