13 lines
212 B
Racket
13 lines
212 B
Racket
#lang typed/racket/base
|
|
|
|
(require typed/racket/unit)
|
|
|
|
(define-signature sig^
|
|
([f : (Integer → Integer)]))
|
|
|
|
(define-unit sig@
|
|
(import)
|
|
(export sig^)
|
|
|
|
(: f : Integer → Integer)
|
|
(define (f x) (+ 1 x))) |