From afaa2a20696a063c5cc1a5dd1d1deb893336461f Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Thu, 17 Sep 2009 19:45:56 +0000
Subject: [PATCH] Refactoring scheme/private/contract into reasonably sized
 pieces.

svn: r16049

original commit: 70e8f21ba2949a2e0762fe7094b115ac6826045f
---
 collects/mzlib/contract.ss | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss
index 0c68658..f69ba69 100644
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@@ -29,10 +29,9 @@
 ;; except the arrow contracts
 ;;
 
-(require (except-in scheme/private/contract-base
-                    define/contract
-                    with-contract
-                    define-struct/contract)
+(require scheme/private/contract-base
+         scheme/private/contract-misc
+         scheme/private/contract-provide
          scheme/private/contract-guts
          scheme/private/contract-ds
          scheme/private/contract-opt
@@ -43,7 +42,9 @@
  (except-out (all-from-out scheme/private/contract-ds)
              lazy-depth-to-look)
  
- (except-out (all-from-out scheme/private/contract-base)
+ (all-from-out scheme/private/contract-base)
+ (all-from-out scheme/private/contract-provide)
+ (except-out (all-from-out scheme/private/contract-misc)
              check-between/c
              string-len/c
              check-unary-between/c)