Typed modules as languages doesn't currently work.

This commit is contained in:
Sam Tobin-Hochstadt 2013-01-14 09:18:34 -05:00
parent cd03585521
commit b6564980ab

View File

@ -0,0 +1,11 @@
#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)))