syndicate-2017/racket/typed/tests/for-loop-regression.rkt

10 lines
213 B
Racket

#lang typed/syndicate
(require rackunit/turnstile)
(check-type (for/list ([x (for/list ([y (list 1 2 3)])
y)])
x)
: (List Int)
(list 1 2 3))