Move draw/snip contracts to private/

collects/racket/draw.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 (require racket/class
          racket/contract/base
-         "draw/contracts.rkt"
+         "draw/private/contract.rkt"
 	 "draw/private/color.rkt"
          "draw/private/point.rkt"
          "draw/private/font.rkt"

collects/racket/draw/private/contract.rkt

@@ -3,23 +3,23 @@
 ;; Contracts for racket/draw
 
 (require racket/class
-         "private/color.rkt"
+         "color.rkt"
-         "private/point.rkt"
+         "point.rkt"
-         "private/font.rkt"
+         "font.rkt"
-         "private/font-dir.rkt"
+         "font-dir.rkt"
-         "private/pen.rkt"
+         "pen.rkt"
-         "private/brush.rkt"
+         "brush.rkt"
-         "private/gradient.rkt"
+         "gradient.rkt"
-         "private/region.rkt"
+         "region.rkt"
-         "private/bitmap.rkt"
+         "bitmap.rkt"
-         "private/dc-path.rkt"
+         "dc-path.rkt"
-         "private/dc-intf.rkt"
+         "dc-intf.rkt"
-         "private/bitmap-dc.rkt"
+         "bitmap-dc.rkt"
-         "private/post-script-dc.rkt"
+         "post-script-dc.rkt"
-         "private/ps-setup.rkt"
+         "ps-setup.rkt"
-         "private/svg-dc.rkt"
+         "svg-dc.rkt"
-         "private/gl-config.rkt"
+         "gl-config.rkt"
-         "private/gl-context.rkt")
+         "gl-context.rkt")
 
 (provide (all-defined-out))
 

collects/racket/snip.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require racket/contract/base
-         "snip/contracts.rkt"
+         "snip/private/contract.rkt"
          "snip/private/snip.rkt"
 	 "snip/private/snip-admin.rkt"
 	 "snip/private/style.rkt")

collects/racket/snip/private/contract.rkt

@@ -2,9 +2,9 @@
 
 (require racket/class
          racket/draw
-         "private/snip.rkt"
+         "snip.rkt"
-         "private/snip-admin.rkt"
+         "snip-admin.rkt"
-         "private/style.rkt")
+         "style.rkt")
 
 (provide (all-defined-out))