typed-racket/typed-racket-test/succeed/struct-top-recursive.rkt
2014-12-16 10:07:25 -05:00

7 lines
116 B
Racket

#lang typed/racket/base
(struct: (v) a ((x : v)) #:mutable)
(: z (Struct (Rec b (a (U #f b)))))
(define z (a #f))