20 lines
670 B
Scheme
20 lines
670 B
Scheme
(module contract mzscheme
|
|
(require "private/contract.ss"
|
|
"private/contract-arrow.ss"
|
|
"private/contract-guts.ss"
|
|
"private/contract-ds.ss"
|
|
"private/contract-opt.ss"
|
|
"private/contract-opters.ss" ;; loaded for its effect -- registering the opters
|
|
)
|
|
|
|
|
|
(provide
|
|
; (all-from "private/contract-opt.ss") ;; not yet
|
|
(all-from "private/contract-ds.ss")
|
|
(all-from "private/contract-arrow.ss")
|
|
(all-from-except "private/contract-guts.ss"
|
|
build-compound-type-name
|
|
first-order-prop
|
|
first-order-get)
|
|
(all-from "private/contract.ss")))
|