typed-racket/typed-racket-test/fail/cast-mod3.rkt
2014-12-16 10:07:25 -05:00

8 lines
137 B
Racket

#;
(exn-pred exn:fail:syntax? #rx".*free variables.*")
#lang typed/racket/base
(: f (All (a) (Number -> a)))
(define (f x) (cast x a))