More mzscheme -> racket changes.

src/foreign/foreign.ssc

@@ -1,6 +1,6 @@
 #!/bin/sh
 #| -*- C -*-
-exec mzscheme "$0" > `echo "$0" | sed 's/ssc$/c/'` "$0"
+exec racket "$0" > `echo "$0" | sed 's/ssc$/c/'` "$0"
 |#
 
 #lang scribble/text

src/racket/gc2/sighand.c

@@ -26,8 +26,8 @@
 static void launchgdb() {
   pid_t pid = getpid();
   char inbuffer[10];
-  
-  fprintf(stderr, "pid # %i run gdb \"gdb ./mzscheme3m %i\" or kill process.\n", pid, pid);
+
+  fprintf(stderr, "pid # %i run gdb \"gdb ./racket3m %i\" or kill process.\n", pid, pid);
   fflush(stderr);
 
   while(read(fileno(stdin), inbuffer, 10) <= 0){

src/racket/oskglue.inc

@@ -59,7 +59,7 @@ oskit_error_t fs_gettime(struct oskit_timespec *tsp)
 
 int gethostname(char *s, int len)
 {
-  strncpy(s, "mzscheme-machine", len);
+  strncpy(s, "racket-machine", len);
   return 0;
 }
 

src/racket/sgc/checkreg

@@ -1,5 +1,5 @@
 #!/bin/sh
-string=? ; exec ${PLTHOME}/bin/mzscheme -gqr $0 "$@"
+string=? ; exec ${PLTHOME}/bin/racket -gqr $0 "$@"
 
 ; Script to check that global and static variables are registered
 

src/racket/sgc/sgcdiff

@@ -1,5 +1,5 @@
 #!/bin/sh
-string=? ; exec $PLTHOME/bin/mzscheme -agrq $0 "$@"
+string=? ; exec $PLTHOME/bin/racket -agrq $0 "$@"
 
 ;; This script reads a stream of sgc (dump-memory-stats) output until
 ;; EOF. Then, the avg change per dump is reported for all types. This

src/racket/src/error.c

@@ -1574,13 +1574,13 @@ static void do_wrong_syntax(const char *where,
   } else if (where == scheme_application_stx_string) {
     who = scheme_intern_symbol("#%app");
     nomwho = who;
-    mod = scheme_intern_symbol("mzscheme");
+    mod = scheme_intern_symbol("racket");
   } else if ((where == scheme_set_stx_string)
 	     || (where == scheme_var_ref_string)
 	     || (where == scheme_begin_stx_string)) {
     who = scheme_intern_symbol(where);
     nomwho = who;
-    mod = scheme_intern_symbol("mzscheme");
+    mod = scheme_intern_symbol("racket");
     if (where == scheme_begin_stx_string)
       where = "begin (possibly implicit)";
   }

src/racket/src/makeexn

@@ -1,9 +1,9 @@
 #!/bin/sh
 #|
 if [ "$PLTHOME" = "" ]; then
-  exec mzscheme -um "$0" "$@"
+  exec racket -um "$0" "$@"
 else
-  exec ${PLTHOME}/bin/mzscheme -um $0 "$@"
+  exec ${PLTHOME}/bin/racket -um $0 "$@"
 fi
 |#
 

src/racket/src/module.c

@@ -3311,8 +3311,8 @@ static Scheme_Module *module_load(Scheme_Object *name, Scheme_Env *env, const ch
       char *mred_note;
 
       if (!strcmp(SCHEME_SYM_VAL(SCHEME_PTR_VAL(name)), "#%mred-kernel")
-	  && !(scheme_strncmp(scheme_banner(), "Welcome to MzScheme", 19)))
-	mred_note = "; need to run in mred instead of mzscheme";
+	  && !(scheme_strncmp(scheme_banner(), "Welcome to Racket", 17)))
+	mred_note = "; need to run in gracket instead of racket";
       else
 	mred_note = "";
 

src/racket/src/mzrt.c

@@ -70,7 +70,7 @@ static void rungdb() {
         return;
         break;
       case 'd':
-        snprintf(outbuffer, 100, "xterm -e gdb ./mzscheme3m %d &", pid);
+        snprintf(outbuffer, 100, "xterm -e gdb ./racket3m %d &", pid);
         fprintf(stderr, "%s\n", outbuffer);
         if(system(outbuffer)) 
           fprintf(stderr, "system failed\n");

src/worksp/mzconfig.h

@@ -1,6 +1,6 @@
 
 /* This file contains information for Windows that is collected using the
- * "configure" script on other platforms.  See src/mzscheme/mzconfig.h.in for
+ * "configure" script on other platforms.  See src/racket/mzconfig.h.in for
  * things that should be defined here.
  */