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

11 lines
139 B
Racket

#lang typed/racket
(: f (case->
(String Symbol * -> (U String Symbol))))
(define f
(case-lambda
(w (first w))))
(f "x" 'y)