From a376725c77b9fa93b3ddf15c07731bfba3d24325 Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Sun, 8 Apr 2012 12:28:22 -0400
Subject: [PATCH] Move draw/snip contracts to private/

---
 collects/racket/draw.rkt                      |  2 +-
 .../{contracts.rkt => private/contract.rkt}   | 34 +++++++++----------
 collects/racket/snip.rkt                      |  2 +-
 .../{contracts.rkt => private/contract.rkt}   |  6 ++--
 4 files changed, 22 insertions(+), 22 deletions(-)
 rename collects/racket/draw/{contracts.rkt => private/contract.rkt} (97%)
 rename collects/racket/snip/{contracts.rkt => private/contract.rkt} (99%)

diff --git a/collects/racket/draw.rkt b/collects/racket/draw.rkt
index 383075d37d..67949db876 100644
--- a/collects/racket/draw.rkt
+++ b/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"
diff --git a/collects/racket/draw/contracts.rkt b/collects/racket/draw/private/contract.rkt
similarity index 97%
rename from collects/racket/draw/contracts.rkt
rename to collects/racket/draw/private/contract.rkt
index fb94496a42..640823c05b 100644
--- a/collects/racket/draw/contracts.rkt
+++ b/collects/racket/draw/private/contract.rkt
@@ -3,23 +3,23 @@
 ;; Contracts for racket/draw
 
 (require racket/class
-         "private/color.rkt"
-         "private/point.rkt"
-         "private/font.rkt"
-         "private/font-dir.rkt"
-         "private/pen.rkt"
-         "private/brush.rkt"
-         "private/gradient.rkt"
-         "private/region.rkt"
-         "private/bitmap.rkt"
-         "private/dc-path.rkt"
-         "private/dc-intf.rkt"
-         "private/bitmap-dc.rkt"
-         "private/post-script-dc.rkt"
-         "private/ps-setup.rkt"
-         "private/svg-dc.rkt"
-         "private/gl-config.rkt"
-         "private/gl-context.rkt")
+         "color.rkt"
+         "point.rkt"
+         "font.rkt"
+         "font-dir.rkt"
+         "pen.rkt"
+         "brush.rkt"
+         "gradient.rkt"
+         "region.rkt"
+         "bitmap.rkt"
+         "dc-path.rkt"
+         "dc-intf.rkt"
+         "bitmap-dc.rkt"
+         "post-script-dc.rkt"
+         "ps-setup.rkt"
+         "svg-dc.rkt"
+         "gl-config.rkt"
+         "gl-context.rkt")
 
 (provide (all-defined-out))
 
diff --git a/collects/racket/snip.rkt b/collects/racket/snip.rkt
index bde495f137..dc4558fa2d 100644
--- a/collects/racket/snip.rkt
+++ b/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")
diff --git a/collects/racket/snip/contracts.rkt b/collects/racket/snip/private/contract.rkt
similarity index 99%
rename from collects/racket/snip/contracts.rkt
rename to collects/racket/snip/private/contract.rkt
index 87e65dda7d..15f2c30d54 100644
--- a/collects/racket/snip/contracts.rkt
+++ b/collects/racket/snip/private/contract.rkt
@@ -2,9 +2,9 @@
 
 (require racket/class
          racket/draw
-         "private/snip.rkt"
-         "private/snip-admin.rkt"
-         "private/style.rkt")
+         "snip.rkt"
+         "snip-admin.rkt"
+         "style.rkt")
 
 (provide (all-defined-out))