15 lines
209 B
Racket
15 lines
209 B
Racket
#;
|
|
(exn-pred exn:fail:contract?)
|
|
#lang scheme/load
|
|
|
|
(module m typed-scheme
|
|
(: f Any)
|
|
(define f (lambda: ([x : Number]) (add1 x)))
|
|
(provide f))
|
|
|
|
(module n scheme
|
|
(require 'm)
|
|
(f "foo"))
|
|
|
|
(require 'n)
|