From cafefcf72149bf9741d516ecdbff0afd81190745 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@cs.indiana.edu>
Date: Sun, 1 Nov 2015 22:24:03 -0500
Subject: [PATCH] Fix mzlib contract test for new `or/c` behavior.

---
 compatibility-test/tests/mzlib/contract-mzlib-test.rktl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/compatibility-test/tests/mzlib/contract-mzlib-test.rktl b/compatibility-test/tests/mzlib/contract-mzlib-test.rktl
index de4292f..f5175dd 100644
--- a/compatibility-test/tests/mzlib/contract-mzlib-test.rktl
+++ b/compatibility-test/tests/mzlib/contract-mzlib-test.rktl
@@ -1502,10 +1502,11 @@ of the contract library does not change over time.
    1)
   
   (contract-error-test
-   #'(contract (or/c (-> integer? integer?) (-> boolean? boolean?))
-               (λ (x) x)
-               'pos
-               'neg)
+   #'((contract (or/c (-> integer? integer?) (-> boolean? boolean?))
+                (λ (x) x)
+                'pos
+                'neg)
+      #f)
    exn:fail?)
   
   (test/spec-passed/result