350a8bb74e
* PR #250: https://github.com/racket/typed-racket/pull/250 * Error message conventions: http://docs.racket-lang.org/reference/exns.html?q=raise-arg#%28part._err-msg-conventions%29
9 lines
179 B
Racket
9 lines
179 B
Racket
#;
|
|
(exn-pred #rx"wrong number of arguments to polymorphic type")
|
|
#lang typed/racket
|
|
|
|
;; Check bad arity for recursive invocation of Foo
|
|
|
|
(define-type (Foo A) (Listof (Foo A A)))
|
|
|