Fix mzlib contract test for new or/c behavior.

2015-11-01 22:24:03 -05:00 · 2015-11-01 22:24:03 -05:00 · cafefcf721
commit cafefcf721
parent c28d032620
1 changed files with 5 additions and 4 deletions
--- 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?))
+   #'((contract (or/c (-> integer? integer?) (-> boolean? boolean?))
-               (λ (x) x)
+                (λ (x) x)
-               'pos
+                'pos
-               'neg)
+                'neg)
      #f)
   exn:fail?)
  (test/spec-passed/result