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

7 lines
107 B
Racket

#lang typed/racket
(struct: foo ([x : Integer]) #:mutable)
(: f (Integer -> foo))
(define (f x) (foo x))