From 9d7ca20eeb7102cfa87d74c9c4887b6683d51feb Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Tue, 19 Jan 2010 06:29:15 +0000
Subject: [PATCH] Replaced guilty-party with equivalent.

svn: r17739
---
 collects/tests/mzscheme/contract-test.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/contract-test.ss b/collects/tests/mzscheme/contract-test.ss
index 32fc3da79d..1fbed1a41a 100644
--- a/collects/tests/mzscheme/contract-test.ss
+++ b/collects/tests/mzscheme/contract-test.ss
@@ -7159,7 +7159,11 @@ so that propagation occurs.
      (and (exn? x)
           (regexp-match #rx"pce8-bug" (exn-message x)))))
   
-  (contract-eval `(,test 'pos guilty-party (with-handlers ((void values)) (contract not #t 'pos 'neg))))
+  (contract-eval
+   `(,test
+     'pos
+     (compose blame-guilty exn:fail:contract:blame-object)
+     (with-handlers ((void values)) (contract not #t 'pos 'neg))))
   
   (report-errs)