Replaced guilty-party with equivalent.

svn: r17739
2010-01-19 06:29:15 +00:00 · 2010-01-19 06:29:15 +00:00 · 9d7ca20eeb
commit 9d7ca20eeb
parent 5d7774e7b2
1 changed files with 5 additions and 1 deletions
--- 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)