typed-racket/typed-racket-test/fail/poly-struct-parent3.rkt
2014-12-16 10:07:25 -05:00

10 lines
190 B
Racket

#;
("Could not instantiate parent struct type")
#lang typed/racket
(define-struct: (A B) Box ([value : A]
[other : B]))
(define-struct: (C) (Child-Box Box) ())