typed-racket/typed-racket-test/succeed/pr14138.rkt
2014-12-16 10:07:25 -05:00

4 lines
62 B
Racket

#lang typed/racket
(: f (case->))
(define (f x) (add1 "foo"))