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

9 lines
103 B
Racket

#lang typed/scheme/base
(define (f x)
(: g (Integer -> Integer))
(define (g x)
(+ x 2))
(g x))