14 lines
244 B
Racket
14 lines
244 B
Racket
#lang typed/racket/base
|
|
|
|
(require typed/racket/unit)
|
|
|
|
(define-syntax-rule (define* form ...) (define form ...))
|
|
|
|
(define-signature sig^
|
|
([id : (Any → Any)]))
|
|
|
|
(define-unit sig@
|
|
(import)
|
|
(export sig^)
|
|
|
|
(define* (id [x : Any]) : Any x)) |