21 lines
292 B
Racket
21 lines
292 B
Racket
#;
|
|
(exn-pred #rx"arity mismatch")
|
|
#lang racket/load
|
|
|
|
(module untyped racket
|
|
(provide f)
|
|
(define (f g)
|
|
(g "foo")))
|
|
|
|
|
|
(module typed typed/racket
|
|
(require/typed 'untyped
|
|
[f (Procedure -> Any)])
|
|
|
|
(: g (Byte -> Natural))
|
|
(define (g x) (add1 x))
|
|
|
|
(f g))
|
|
|
|
(require 'typed)
|