Adjust tests since opaque structs are no longer accepted by Any.

This commit is contained in:
Sam Tobin-Hochstadt 2016-07-09 21:22:08 -04:00
parent 3d80322d27
commit 27ed39d101
4 changed files with 2 additions and 2 deletions

View File

@ -4,7 +4,7 @@
(define (f x) x))
(module typed typed/racket
(require typed/rackunit)
(struct (X) s ([i : X]) #:mutable)
(struct (X) s ([i : X]) #:mutable #:transparent)
(require/typed (submod ".." untyped)
[f (-> Any (s (U Integer String)))])
(: s1 : (s Integer))

View File

@ -5,7 +5,7 @@
(module u racket/base
(require racket/generic)
(define-generics foo)
(struct foo-struct () #:methods gen:foo [])
(struct foo-struct () #:methods gen:foo [] #:transparent)
(define f1 (foo-struct))
(provide f1 foo?))