scheme/contract => scheme/contract/base

svn: r18371

collects/mzlib/port.ss

@@ -2,7 +2,7 @@
 
 (require (for-syntax scheme/base)
          mzlib/etc
-         scheme/contract
+         scheme/contract/base
          mzlib/list
          "private/port.ss")
 

collects/mzlib/private/contract-define.ss

@@ -5,7 +5,7 @@
 (require (for-syntax scheme/base
                      unstable/srcloc
                      (prefix-in a: scheme/contract/private/helpers))
-         (only-in scheme/contract contract))
+         (only-in scheme/contract/private/base contract))
 
 ;; First, we have the old define/contract implementation, which
 ;; is still used in mzlib/contract.

collects/scheme/unit.ss

@@ -1,7 +1,7 @@
 
 (module unit scheme/base
   (require mzlib/unit
-           scheme/contract
+           scheme/contract/base
            (for-syntax scheme/base
                        syntax/struct))
   (provide (except-out (all-from-out mzlib/unit)

collects/syntax/id-table.ss

@@ -1,6 +1,6 @@
 #lang scheme/base
 (require (for-syntax scheme/base)
-         scheme/contract
+         scheme/contract/base
          scheme/dict
          "private/id-table.ss")
 #|

collects/syntax/keyword.ss

@@ -1,5 +1,5 @@
 #lang scheme/base
-(require scheme/contract
+(require scheme/contract/base
          scheme/dict
          "private/keyword.ss")
 

collects/syntax/modcollapse.ss

@@ -1,6 +1,6 @@
 #lang scheme/base
 
-(require scheme/contract
+(require scheme/contract/base
          "private/modcollapse-noctc.ss")
 
 (define simple-rel-to-module-path-v/c

collects/syntax/modresolve.ss

@@ -1,6 +1,6 @@
 
 #lang scheme/base
-(require scheme/contract
+(require scheme/contract/base
          "private/modhelp.ss")
 
 (define (force-relto relto dir?)