From 031ee2a05a6ed264de4f4bd200c9ff473db2a23e Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Fri, 17 Dec 2010 14:32:50 -0500
Subject: [PATCH] Move load-one to racket/snip. Create private directory for
 racket/snip. Remove snip dependence on events.

original commit: cf3aec6b950fdea1eb970ff329de54d488c15bac
---
 collects/mred/private/wxme/editor-data.rkt       | 8 ++++----
 collects/mred/private/wxme/editor-snip-class.rkt | 2 +-
 collects/mred/private/wxme/editor-snip.rkt       | 2 +-
 collects/mred/private/wxme/editor.rkt            | 2 +-
 collects/mred/private/wxme/mline.rkt             | 2 +-
 collects/mred/private/wxme/pasteboard.rkt        | 2 +-
 collects/mred/private/wxme/text.rkt              | 2 +-
 collects/mred/private/wxme/undo.rkt              | 2 +-
 8 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/collects/mred/private/wxme/editor-data.rkt b/collects/mred/private/wxme/editor-data.rkt
index ff32ff2c..2505f397 100644
--- a/collects/mred/private/wxme/editor-data.rkt
+++ b/collects/mred/private/wxme/editor-data.rkt
@@ -3,11 +3,11 @@
 (require scheme/class
          scheme/file file/convertible
          "../syntax.ss"
-         racket/snip/snip-flags
+         racket/snip/private/snip-flags
          "private.ss"
          "style.ss"
-         "load-one.rkt"
-         (only-in "cycle.ss"
+        racket/snip/private/load-one
+	(only-in "cycle.ss"
                   editor-stream-in% editor-stream-out%
                   get-editor-data-class set-get-editor-data-class!)
          "../wx/common/event.rkt"
@@ -166,4 +166,4 @@
 
 (set-get-editor-data-class!
  (lambda (name)
-   (load-one name 'editor-data-class editor-data-class%)))
\ No newline at end of file
+   (load-one name 'editor-data-class editor-data-class%)))
diff --git a/collects/mred/private/wxme/editor-snip-class.rkt b/collects/mred/private/wxme/editor-snip-class.rkt
index 5ee5e2ef..5a9c5a70 100644
--- a/collects/mred/private/wxme/editor-snip-class.rkt
+++ b/collects/mred/private/wxme/editor-snip-class.rkt
@@ -3,7 +3,7 @@
 (require racket/class
          racket/file file/convertible
          "../syntax.ss"
-         racket/snip/snip-flags
+         racket/snip/private/snip-flags
          "private.ss"
          "style.ss"
          racket/snip
diff --git a/collects/mred/private/wxme/editor-snip.rkt b/collects/mred/private/wxme/editor-snip.rkt
index bca02aa9..97f435e1 100644
--- a/collects/mred/private/wxme/editor-snip.rkt
+++ b/collects/mred/private/wxme/editor-snip.rkt
@@ -4,7 +4,7 @@
          "private.ss"
          "const.ss"
          racket/snip
-         racket/snip/snip-flags
+         racket/snip/private/snip-flags
          "standard-snip-admin.rkt"
          "editor.ss"
          "editor-admin.ss"
diff --git a/collects/mred/private/wxme/editor.rkt b/collects/mred/private/wxme/editor.rkt
index 8e7d482c..010632c8 100644
--- a/collects/mred/private/wxme/editor.rkt
+++ b/collects/mred/private/wxme/editor.rkt
@@ -6,7 +6,7 @@
          "private.ss"
          "style.ss"
          racket/snip
-         racket/snip/snip-flags
+         racket/snip/private/snip-flags
          "editor-admin.ss"
          "stream.ss"
          "undo.ss"
diff --git a/collects/mred/private/wxme/mline.rkt b/collects/mred/private/wxme/mline.rkt
index 497f1326..2194ec37 100644
--- a/collects/mred/private/wxme/mline.rkt
+++ b/collects/mred/private/wxme/mline.rkt
@@ -3,7 +3,7 @@
          "../syntax.ss"
          "const.ss"
          racket/snip
-         racket/snip/snip-flags
+         racket/snip/private/snip-flags
          "private.ss")
 
 (provide create-mline
diff --git a/collects/mred/private/wxme/pasteboard.rkt b/collects/mred/private/wxme/pasteboard.rkt
index fc7e5383..bf15a50b 100644
--- a/collects/mred/private/wxme/pasteboard.rkt
+++ b/collects/mred/private/wxme/pasteboard.rkt
@@ -10,7 +10,7 @@
          "undo.ss"
          "style.ss"
          racket/snip
-         racket/snip/snip-flags
+         racket/snip/private/snip-flags
          "standard-snip-admin.rkt"
          "keymap.ss"
          (only-in "cycle.ss" set-pasteboard%!)
diff --git a/collects/mred/private/wxme/text.rkt b/collects/mred/private/wxme/text.rkt
index e8844c2c..88794f91 100644
--- a/collects/mred/private/wxme/text.rkt
+++ b/collects/mred/private/wxme/text.rkt
@@ -12,7 +12,7 @@
          "undo.ss"
          "style.ss"
          racket/snip
-         racket/snip/snip-flags
+         racket/snip/private/snip-flags
          "standard-snip-admin.rkt"
          "keymap.ss"
          (only-in "cycle.ss" set-text%!)
diff --git a/collects/mred/private/wxme/undo.rkt b/collects/mred/private/wxme/undo.rkt
index 562d7a1a..e76906d7 100644
--- a/collects/mred/private/wxme/undo.rkt
+++ b/collects/mred/private/wxme/undo.rkt
@@ -2,7 +2,7 @@
 (require scheme/class
          "private.ss"
          racket/snip
-         racket/snip/snip-flags)
+         racket/snip/private/snip-flags)
 
 (provide change-record%
          proc-record%