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.
21 lines
404 B
Racket
21 lines
404 B
Racket
#;
|
|
(exn-pred #rx"contract does not list initialization dependency a\\^")
|
|
|
|
#lang racket
|
|
|
|
(module untyped racket
|
|
(provide (all-defined-out))
|
|
(define-signature a^ (a))
|
|
(define-unit u
|
|
(import a^)
|
|
(export)
|
|
(init-depend a^)
|
|
a))
|
|
|
|
(module typed typed/racket
|
|
(require/typed (submod ".." untyped)
|
|
[#:signature a^ ([a : Any])]
|
|
[u (Unit (import a^) (export) Any)]))
|
|
|
|
(require 'typed)
|