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

6 lines
269 B
Racket

#lang typed-scheme
(letrec-syntaxes+values () ([(#{x : Number}) (values 1)]) #{(vector x) :: (Vectorof Number)})
(letrec-values ([(#{x : Number}) (values 1)]) #{(vector x) :: (Vectorof Number)})
(letrec ([#{x : Number} (values 1)]) #{(vector x) :: (Vectorof Number)})