diff --git a/collects/mzlib/class.ss b/collects/mzlib/class.ss index 08dae8b..536df91 100644 --- a/collects/mzlib/class.ss +++ b/collects/mzlib/class.ss @@ -1,9 +1,5 @@ (module class mzscheme - ;; povide contracts for objects - (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") diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss index 1b4c1c7..d92bc62 100644 --- a/collects/mzlib/contract.ss +++ b/collects/mzlib/contract.ss @@ -1,5 +1,10 @@ (module contract mzscheme + + ;; povide contracts for objects + (require "private/contract-object.ss") + (provide (all-from "private/contract-object.ss")) + (require "private/contract.ss" "private/contract-arrow.ss" "private/contract-guts.ss"