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

7 lines
107 B
Racket

#lang typed/racket
(define: x : (MPairof Integer Integer) (mcons 1 2))
(set-mcar! x -7)
(mcar x)
(mcdr x)