15 lines
243 B
Racket
15 lines
243 B
Racket
#lang scheme/load
|
|
|
|
(module source mzscheme
|
|
|
|
(require mzlib/contract)
|
|
|
|
(define-struct ast (loc))
|
|
|
|
(provide/contract (struct ast ([loc srcloc?])))
|
|
)
|
|
|
|
(module client typed-scheme
|
|
|
|
(require-typed-struct ast ([loc : Any]) 'source))
|