Rename "--suppress-noise" to "--batch-mode".

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 5c141945f09c009febe8d988d129cc2437c52c5d..402acabf3aab8f634e66c71cf498eaed2278179b 100644 (file)
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.114 2003/03/20 03:51:08 cph Exp $
+$Id: boot.c,v 9.115 2003/03/21 17:28:21 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1994,1995,1996,1997 Massachusetts Institute of Technology
@@ -386,7 +386,7 @@ DEFUN (Start_Scheme, (Start_Prim, File_Name),
   OS_initialize ();
   if (I_Am_Master)
     {
-      if (!option_suppress_noise)
+      if (!option_batch_mode)
        {
          outf_console ("MIT/GNU Scheme running under %s\n", OS_Variant);
          OS_announcement ();
@@ -743,8 +743,8 @@ DEFINE_PRIMITIVE ("RELOAD-RETRIEVE-STRING", Prim_reload_retrieve_string, 0, 0, 0
   }
 }
 
-DEFINE_PRIMITIVE ("SUPPRESS-NOISE", Prim_suppress_noise, 0, 0, 0)
+DEFINE_PRIMITIVE ("BATCH-MODE?", Prim_batch_mode_p, 0, 0, 0)
 {
   PRIMITIVE_HEADER (0);
-  PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (option_suppress_noise));
+  PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (option_batch_mode));
 }

diff --git a/v7/src/microcode/option.c b/v7/src/microcode/option.c
index 302fb1824ec844f62ad5d95a48ad6194101df533..ed51758c869e53b516fdb3911749afc75d6b533c 100644 (file)
--- a/v7/src/microcode/option.c
+++ b/v7/src/microcode/option.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: option.c,v 1.60 2003/03/20 03:51:11 cph Exp $
+$Id: option.c,v 1.61 2003/03/21 17:28:25 cph Exp $
 
 Copyright 1990,1991,1992,1993,1994,1995 Massachusetts Institute of Technology
 Copyright 1996,1997,1998,1999,2000,2001 Massachusetts Institute of Technology
@@ -120,7 +120,7 @@ int option_force_interactive;
 int option_disable_core_dump;
 int option_band_specified;
 int option_empty_list_eq_false;
-int option_suppress_noise;
+int option_batch_mode;
 
 /* String options */
 CONST char ** option_library_path = 0;
@@ -661,7 +661,7 @@ DEFUN (parse_standard_options, (argc, argv), int argc AND CONST char ** argv)
   option_argument ("utab", 1, (&option_raw_utab));
   option_argument ("utabmd", 1, (&option_raw_utabmd));
   option_argument ("empty-list-eq-false", 0, (&option_empty_list_eq_false));
-  option_argument ("suppress-noise", 0, (&option_suppress_noise));
+  option_argument ("batch-mode", 0, (&option_batch_mode));
 #ifdef HAS_COMPILER_SUPPORT
   option_argument ("compiler", 0, (&option_compiler_defaults));
   option_argument ("edwin", 0, (&option_edwin_defaults));
@@ -1161,7 +1161,7 @@ DEFUN_VOID (describe_options)
   describe_boolean_option ("emacs subprocess", option_emacs_subprocess);
   describe_boolean_option ("force interactive", option_force_interactive);
   describe_boolean_option ("disable core dump", option_disable_core_dump);
-  describe_boolean_option ("suppress noise", option_suppress_noise);
+  describe_boolean_option ("suppress noise", option_batch_mode);
   if (option_unused_argc == 0)
     outf_fatal ("  no unused arguments\n");
   else

diff --git a/v7/src/microcode/option.h b/v7/src/microcode/option.h
index 76e4229005bb0a64f6ef25417d2cb4866036c0a8..3fff5f0159d97fcc4acc0085c01a22663e3cc570 100644 (file)
--- a/v7/src/microcode/option.h
+++ b/v7/src/microcode/option.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: option.h,v 1.15 2003/03/20 03:51:14 cph Exp $
+$Id: option.h,v 1.16 2003/03/21 17:28:29 cph Exp $
 
 Copyright 1990,1991,1992,1993,1995,2003 Massachusetts Institute of Technology
 
@@ -38,7 +38,7 @@ extern int option_emacs_subprocess;
 extern int option_force_interactive;
 extern int option_disable_core_dump;
 extern int option_empty_list_eq_false;
-extern int option_suppress_noise;
+extern int option_batch_mode;
 
 /* String options */
 extern CONST char ** option_library_path;

diff --git a/v7/src/microcode/term.c b/v7/src/microcode/term.c
index 886da7896602a727966c889253e340acc88a8421..bda5d0cb1d44cb10e2c0e7e3ce5279b39d1b2236 100644 (file)
--- a/v7/src/microcode/term.c
+++ b/v7/src/microcode/term.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: term.c,v 1.19 2003/03/20 04:39:06 cph Exp $
+$Id: term.c,v 1.20 2003/03/21 17:28:33 cph Exp $
 
 Copyright 1990,1991,1993,1994,1995,1996 Massachusetts Institute of Technology
 Copyright 2000,2002,2003 Massachusetts Institute of Technology
@@ -114,7 +114,7 @@ DEFUN (termination_prefix, (code), int code)
      message should be considered normal output.  */
   if (code == TERM_HALT)
     {
-      if (!option_suppress_noise)
+      if (!option_batch_mode)
        {
          outf_console ("\n%s.\n", (Term_Messages [code]));
          outf_flush_console ();