From b3e0a784e4658071a74d0a0caafdd29b2443978d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 26 Apr 2010 14:40:37 -0600
Subject: [PATCH] .mzschemerc -> .racketrc, etc.

---
 src/gracket/wxs/wxscheme.cxx | 20 ++++++++++----------
 src/racket/src/file.c        | 20 ++++++++++----------
 2 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/src/gracket/wxs/wxscheme.cxx b/src/gracket/wxs/wxscheme.cxx
index 824ea2878e..b47a695ac7 100644
--- a/src/gracket/wxs/wxscheme.cxx
+++ b/src/gracket/wxs/wxscheme.cxx
@@ -2514,10 +2514,10 @@ Scheme_Object *wxSchemeFindDirectory(int argc, Scheme_Object **argv)
     
     if (which == id_init_file)
       return append_path(home,
-			 scheme_make_path("/.mredrc" + ends_in_slash));
+			 scheme_make_path("/.gracketrc" + ends_in_slash));
     if (which == id_setup_file)
       return append_path(home,
-			 scheme_make_path("/.mred.resources" + ends_in_slash));
+			 scheme_make_path("/.gracket.resources" + ends_in_slash));
 
     if (which == id_x_display) {
 # if defined(wx_x)
@@ -2541,10 +2541,10 @@ Scheme_Object *wxSchemeFindDirectory(int argc, Scheme_Object **argv)
     
     if (which == id_init_file)
       return append_path(home,
-			 scheme_make_path("\\mredrc.ss" + ends_in_slash));
+			 scheme_make_path("\\gracketrc.rkt" + ends_in_slash));
     if (which == id_setup_file)
       return append_path(home,
-			 scheme_make_path("\\mred.ini" + ends_in_slash));  
+			 scheme_make_path("\\gracket.ini" + ends_in_slash));  
     
     if (which == id_x_display)
       return scheme_false;
@@ -2584,10 +2584,10 @@ Scheme_Object *wxSchemeFindDirectory(int argc, Scheme_Object **argv)
 
   if (which == id_init_file)
     return append_path(home,
-		       scheme_make_path(":mredrc.ss" + ends_in_colon));
+		       scheme_make_path(":gracketrc.rkt" + ends_in_colon));
   if (which == id_setup_file)
     return append_path(home,
-		       scheme_make_path(":mred.fnt" + ends_in_colon));  
+		       scheme_make_path(":gracket.fnt" + ends_in_colon));  
 #endif
 
   return scheme_void;
@@ -2778,9 +2778,9 @@ int wxGetPreference(const char *name, char *res, long len)
     if (!ends_in_slash)
       s[l++] = '/';
 # ifdef wx_mac
-    memcpy(s + l, "org.plt-scheme.prefs.ss", 24);
+    memcpy(s + l, "org.racket-lang.prefs.rkt", 24);
 # else
-    memcpy(s + l, "plt-prefs.ss", 13);
+    memcpy(s + l, "racket-prefs.rkt", 13);
 # endif
 #endif
 
@@ -2796,7 +2796,7 @@ int wxGetPreference(const char *name, char *res, long len)
     memcpy(s, home, l);
     if (!ends_in_slash)
       s[l++] = '\\';
-    memcpy(s + l, "plt-prefs.ss", 13);
+    memcpy(s + l, "racket-prefs.rkt", 13);
 #endif
 
     /*************** Mac OS Classic ***************/
@@ -2825,7 +2825,7 @@ int wxGetPreference(const char *name, char *res, long len)
       memcpy(s, home, l);
       if (!ends_in_slash)
 	s[l++] = ':';
-      memcpy(s + l, "org.plt-scheme.prefs.ss", 24);
+      memcpy(s + l, "org.racket-lang.prefs.rkt", 24);
     }
 #endif
 
diff --git a/src/racket/src/file.c b/src/racket/src/file.c
index 366da757bb..f28e8f3b02 100644
--- a/src/racket/src/file.c
+++ b/src/racket/src/file.c
@@ -5708,7 +5708,7 @@ enum {
 Scheme_Object *scheme_get_run_cmd(void)
 {
   if (!run_cmd) {
-    return scheme_make_path("mzscheme");
+    return scheme_make_path("racket");
   }
   return run_cmd;
 }
@@ -5738,7 +5738,7 @@ find_system_path(int argc, Scheme_Object **argv)
     which = id_sys_dir;
   else if (argv[0] == exec_file_symbol) {
     if (!exec_cmd) {
-       return scheme_make_path("mzscheme");
+       return scheme_make_path("racket");
     }
     return exec_cmd;
   } else if (argv[0] == run_file_symbol) {
@@ -5798,11 +5798,11 @@ find_system_path(int argc, Scheme_Object **argv)
 	|| (which == id_addon_dir)) {
 #if defined(OS_X) && !defined(XONX)
       if (which == id_addon_dir)
-	home_str = "~/Library/PLT Scheme/";
+	home_str = "~/Library/Racket/";
       else
 	home_str = "~/Library/Preferences/";
 #else
-      home_str = "~/.plt-scheme/";
+      home_str = "~/.racket/";
 #endif 
     } else {
 #if defined(OS_X) && !defined(XONX)
@@ -5836,12 +5836,12 @@ find_system_path(int argc, Scheme_Object **argv)
     ends_in_slash = (SCHEME_PATH_VAL(home))[SCHEME_PATH_LEN(home) - 1] == '/';
     
     if (which == id_init_file)
-      return append_path(home, scheme_make_path("/.mzschemerc" + ends_in_slash));
+      return append_path(home, scheme_make_path("/.racketrc" + ends_in_slash));
     if (which == id_pref_file) {
 #if defined(OS_X) && !defined(XONX)
-      return append_path(home, scheme_make_path("/org.plt-scheme.prefs.ss" + ends_in_slash));
+      return append_path(home, scheme_make_path("/org.racket-lang.prefs.rkt" + ends_in_slash));
 #else      
-      return append_path(home, scheme_make_path("/plt-prefs.ss" + ends_in_slash));
+      return append_path(home, scheme_make_path("/racket-prefs.rkt" + ends_in_slash));
 #endif
     }
   }
@@ -5977,14 +5977,14 @@ find_system_path(int argc, Scheme_Object **argv)
     if ((which == id_addon_dir)
 	|| (which == id_pref_dir)
 	|| (which == id_pref_file)) {
-      home = append_path(home, scheme_make_path("\\PLT Scheme" + ends_in_slash));
+      home = append_path(home, scheme_make_path("\\Racket" + ends_in_slash));
       ends_in_slash = 0;
     }
 
     if (which == id_init_file)
-      return append_path(home, scheme_make_path("\\mzschemerc.ss" + ends_in_slash));
+      return append_path(home, scheme_make_path("\\racketrc.rkt" + ends_in_slash));
     if (which == id_pref_file)
-      return append_path(home, scheme_make_path("\\plt-prefs.ss" + ends_in_slash));
+      return append_path(home, scheme_make_path("\\racket-prefs.rkt" + ends_in_slash));
     return home;
   }
 #endif