From 001f570d34e63aafcb1699748b8e5e602df02468 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 20 Apr 2010 15:24:48 -0600
Subject: [PATCH] move most of the 'scheme' collection to the 'racket'
 collection

original commit: c95a39875453e7f057395a7bf626e5d2ed732e7e
---
 collects/racket/gui.rkt                              | 4 ++++
 collects/{scheme/gui/base.ss => racket/gui/base.rkt} | 0
 collects/{scheme/gui/init.ss => racket/gui/init.rkt} | 0
 collects/racket/gui/lang/reader.ss                   | 2 ++
 collects/scheme/{gui.ss => gui.rkt}                  | 0
 collects/scheme/gui/base.rkt                         | 2 ++
 collects/scheme/gui/init.rkt                         | 2 ++
 7 files changed, 10 insertions(+)
 create mode 100644 collects/racket/gui.rkt
 rename collects/{scheme/gui/base.ss => racket/gui/base.rkt} (100%)
 rename collects/{scheme/gui/init.ss => racket/gui/init.rkt} (100%)
 create mode 100644 collects/racket/gui/lang/reader.ss
 rename collects/scheme/{gui.ss => gui.rkt} (100%)
 create mode 100644 collects/scheme/gui/base.rkt
 create mode 100644 collects/scheme/gui/init.rkt

diff --git a/collects/racket/gui.rkt b/collects/racket/gui.rkt
new file mode 100644
index 00000000..58531f47
--- /dev/null
+++ b/collects/racket/gui.rkt
@@ -0,0 +1,4 @@
+(module gui racket
+  (require racket/gui/base)
+  (provide (all-from-out racket)
+           (all-from-out racket/gui/base)))
diff --git a/collects/scheme/gui/base.ss b/collects/racket/gui/base.rkt
similarity index 100%
rename from collects/scheme/gui/base.ss
rename to collects/racket/gui/base.rkt
diff --git a/collects/scheme/gui/init.ss b/collects/racket/gui/init.rkt
similarity index 100%
rename from collects/scheme/gui/init.ss
rename to collects/racket/gui/init.rkt
diff --git a/collects/racket/gui/lang/reader.ss b/collects/racket/gui/lang/reader.ss
new file mode 100644
index 00000000..48151efe
--- /dev/null
+++ b/collects/racket/gui/lang/reader.ss
@@ -0,0 +1,2 @@
+#lang s-exp syntax/module-reader
+racket/gui
diff --git a/collects/scheme/gui.ss b/collects/scheme/gui.rkt
similarity index 100%
rename from collects/scheme/gui.ss
rename to collects/scheme/gui.rkt
diff --git a/collects/scheme/gui/base.rkt b/collects/scheme/gui/base.rkt
new file mode 100644
index 00000000..25deaa37
--- /dev/null
+++ b/collects/scheme/gui/base.rkt
@@ -0,0 +1,2 @@
+#lang scheme/private/provider
+racket/gui/base
diff --git a/collects/scheme/gui/init.rkt b/collects/scheme/gui/init.rkt
new file mode 100644
index 00000000..c5670403
--- /dev/null
+++ b/collects/scheme/gui/init.rkt
@@ -0,0 +1,2 @@
+#lang scheme/private/provider
+racket/gui/init