2e0cc095c7
Most unit forms are supported, including most of the "infer" forms that infer imports/exports/linkages from the current context. Notably, none of the structural linking forms for units are supported, and `define-unit-binding` is also currently unsupported.
15 lines
288 B
Racket
15 lines
288 B
Racket
#lang typed/racket
|
|
|
|
(define-signature s^ ([a : Integer]))
|
|
(define-signature t^ ([b : Integer]))
|
|
(define-unit u@
|
|
(import s^)
|
|
(export t^)
|
|
(init-depend s^)
|
|
(define b a))
|
|
(define-unit v@
|
|
(import)
|
|
(export s^)
|
|
(define a 2))
|
|
(define-values/invoke-unit/infer (export) (link v@ u@))
|