13 lines
181 B
Racket
13 lines
181 B
Racket
#lang scheme/load
|
|
|
|
(module m typed-scheme
|
|
(define-struct: (A) x ([v : A]))
|
|
(provide make-x x-v))
|
|
|
|
(module n scheme
|
|
(require 'm)
|
|
(x-v (make-x 1)))
|
|
|
|
(require 'm)
|
|
(require 'n)
|