8 lines
197 B
Racket
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
|