10 lines
275 B
Racket
10 lines
275 B
Racket
#;
|
|
(exn-pred #rx"expected: \\(Listof Nothing\\).*given: \\(Listof Pos\\*\\)")
|
|
#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
|