From d970f1133474d0152ccfb4c1ded818cda685f686 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 22 Aug 2012 12:34:34 -0400 Subject: [PATCH] Remove `#:transparent` to work around place message limitations. original commit: b7f9c7706944216c4eb841396df53be2f413842f --- collects/tests/typed-racket/fail/poly-struct-parent.rkt | 4 ++-- collects/tests/typed-racket/fail/poly-struct-parent2.rkt | 4 ++-- collects/tests/typed-racket/fail/poly-struct-parent3.rkt | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/tests/typed-racket/fail/poly-struct-parent.rkt b/collects/tests/typed-racket/fail/poly-struct-parent.rkt index 9077efbd..345ce342 100644 --- a/collects/tests/typed-racket/fail/poly-struct-parent.rkt +++ b/collects/tests/typed-racket/fail/poly-struct-parent.rkt @@ -1,7 +1,7 @@ #lang typed/racket -(define-struct: (A) Box ([value : A]) #:transparent) -(define-struct: (A) (Child-Box Box) () #:transparent) +(define-struct: (A) Box ([value : A])) +(define-struct: (A) (Child-Box Box) ()) (ann (Box-value (Child-Box 'sym)) Nothing) diff --git a/collects/tests/typed-racket/fail/poly-struct-parent2.rkt b/collects/tests/typed-racket/fail/poly-struct-parent2.rkt index d54b0a72..5107ecb3 100644 --- a/collects/tests/typed-racket/fail/poly-struct-parent2.rkt +++ b/collects/tests/typed-racket/fail/poly-struct-parent2.rkt @@ -2,6 +2,6 @@ ("Could not instantiate parent struct type") #lang typed/racket -(define-struct: (A) Box ([value : A]) #:transparent) -(define-struct: (Child-Box Box) () #:transparent) +(define-struct: (A) Box ([value : A])) +(define-struct: (Child-Box Box) ()) diff --git a/collects/tests/typed-racket/fail/poly-struct-parent3.rkt b/collects/tests/typed-racket/fail/poly-struct-parent3.rkt index 1c0743db..0d7b269b 100644 --- a/collects/tests/typed-racket/fail/poly-struct-parent3.rkt +++ b/collects/tests/typed-racket/fail/poly-struct-parent3.rkt @@ -3,7 +3,7 @@ #lang typed/racket (define-struct: (A B) Box ([value : A] - [other : B]) #:transparent) -(define-struct: (C) (Child-Box Box) () #:transparent) + [other : B])) +(define-struct: (C) (Child-Box Box) ())