Fix breakage from 3fceae2715

2012-05-17 10:08:19 -06:00 · 2012-05-17 10:08:19 -06:00 · e12e559878
commit e12e559878
parent b752d2e09a
1 changed files with 2 additions and 2 deletions
--- a/collects/tests/unstable/temp-c/future-ctc.rkt
+++ b/collects/tests/unstable/temp-c/future-ctc.rkt
@ -62,9 +62,9 @@
  (define-values (? o) (strange-fun/ctc (λ (x) x)))
  (test
   (o 4) => 4
-   (o "string") =error> "contract violation"
+   (o "string") =error> "broke"
   
-   (bad-strange-fun/ctc (λ (x) x)) =error> "contract violation"))
+   (bad-strange-fun/ctc (λ (x) x)) =error> "broke"))

 (test
 ; ->i doesn't work