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

8 lines
96 B
Racket

#lang typed/racket
(struct: x ([y : Number]))
(x 1)
(x-y (x 7))
(ann x? (Any -> Boolean : x))