12 lines
334 B
Scheme
12 lines
334 B
Scheme
#lang scheme/base
|
|
|
|
(require "contract/private/object.ss")
|
|
(provide (all-from-out "contract/private/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?)
|