typed-racket/typed-racket-test/fail/issue-169-1.rkt
2015-08-14 21:42:20 -05:00

8 lines
197 B
Racket

#lang typed/racket
(define-type Pos Integer)
(define-new-subtype Pos* (p Pos))
(define lst
(for*/list ([x (in-range 3)]) : (Listof Pos*)
(p x)))
(ann lst (Listof Nothing)) ; this should fail