suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix breakage from 3fceae2715

Browse Source
This commit is contained in:
Jay McCarthy 2012-05-17 10:08:19 -06:00
parent b752d2e09a
commit e12e559878
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/unstable/temp-c/future-ctc.rkt
View File

@ -62,9 +62,9 @@
(define-values (? o) (strange-fun/ctc (λ (x) x))) (define-values (? o) (strange-fun/ctc (λ (x) x)))
(test (test
(o 4) => 4 (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 (test
; ->i doesn't work ; ->i doesn't work