From 7f8540949d84ef584377659b3e21e2fe559b5304 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Thu, 13 Oct 2011 17:35:20 -0400
Subject: [PATCH] Use `racket/*' instead of `scheme/*' in gracket etc.

---
 src/gracket/grmain.c | 2 +-
 src/mzcom/mzobj.cxx  | 2 +-
 src/racket/main.c    | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/gracket/grmain.c b/src/gracket/grmain.c
index 59eb9f9889..ee2b16f625 100644
--- a/src/gracket/grmain.c
+++ b/src/gracket/grmain.c
@@ -45,7 +45,7 @@ static void pre_filter_cmdline_arguments(int *argc, char ***argv);
 #define INITIAL_BIN_TYPE "ri"
 
 #define CMDLINE_STDIO_FLAG
-#define INITIAL_NAMESPACE_MODULE "scheme/gui/init"
+#define INITIAL_NAMESPACE_MODULE "racket/gui/init"
 #define GRAPHICAL_REPL
 
 # include "../racket/main.c"
diff --git a/src/mzcom/mzobj.cxx b/src/mzcom/mzobj.cxx
index 6e77ae89e9..214ff22881 100644
--- a/src/mzcom/mzobj.cxx
+++ b/src/mzcom/mzobj.cxx
@@ -161,7 +161,7 @@ void setupSchemeEnv(Scheme_Env *in_env)
 
   // initialize namespace
 
-  scheme_namespace_require(scheme_intern_symbol("scheme"));
+  scheme_namespace_require(scheme_intern_symbol("racket"));
 
   // set up exception trapping
 
diff --git a/src/racket/main.c b/src/racket/main.c
index 8b527a6e79..146ac12588 100644
--- a/src/racket/main.c
+++ b/src/racket/main.c
@@ -391,13 +391,13 @@ static void do_scheme_rep(Scheme_Env *env, FinishArgs *fa)
 
 #ifdef GRAPHICAL_REPL
   if (!fa->a->alternate_rep) {
-    a[0] = scheme_intern_symbol("mred/mred");
+    a[0] = scheme_intern_symbol("racket/gui/init");
     a[1] = scheme_intern_symbol("graphical-read-eval-print-loop");
     ending_newline = 0;
   } else
 #endif
     {
-      a[0] = scheme_intern_symbol("scheme/base");
+      a[0] = scheme_intern_symbol("racket/base");
       a[1] = scheme_intern_symbol("read-eval-print-loop");
     }