12 lines
192 B
Racket
12 lines
192 B
Racket
#lang racket/load
|
|
|
|
(module m typed/racket
|
|
(provide #%module-begin)
|
|
(: f : Integer -> Integer)
|
|
(define (f x) (add1 x))
|
|
(provide add1 #%datum #%app f))
|
|
|
|
(module n 'm
|
|
5
|
|
(add1 (f 7)))
|