12 lines
350 B
Scheme
12 lines
350 B
Scheme
(module class mzscheme
|
|
|
|
(require "private/contract-object.ss")
|
|
(provide (all-from "private/contract-object.ss"))
|
|
|
|
;; All of the implementation is actually in private/class-internal.ss,
|
|
;; which provides extra (private) functionality to contract.ss.
|
|
(require "private/class-internal.ss")
|
|
|
|
(provide-public-names)
|
|
(provide generic?))
|