11 lines
150 B
Racket
11 lines
150 B
Racket
#lang typed-scheme
|
|
|
|
(define-type-alias Int Integer)
|
|
|
|
(: foo ( -> Int))
|
|
(define (foo)
|
|
(: loop (Int -> Int))
|
|
(define (loop x)
|
|
(loop x))
|
|
(loop 0))
|