typed-racket/typed-racket-test/fail/pr13365-variation-3.rkt
Asumu Takikawa 31bf61e333 Remove redundant values checks
These can all be done via check-below later in the
typechecking process
2016-05-09 18:03:17 -04:00

7 lines
136 B
Racket

#;
(exn-pred #rx"mismatch in.*a ...")
#lang typed/racket
(: f (All (a ...) (a ... a -> (Values a ... a))))
(define (f . x) (values 1))