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.
11 lines
261 B
Racket
11 lines
261 B
Racket
#;
|
|
(exn-pred #rx"type mismatch")
|
|
#lang typed/racket
|
|
|
|
(define-signature x-sig ([x : Integer]))
|
|
(define-signature x-sub extends x-sig ([xx : Integer]))
|
|
|
|
(define u (unit (import) (export x-sig) (define x 1)))
|
|
|
|
(define-values/invoke-unit u (import) (export x-sub))
|