From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 27 Jul 1995 00:11:31 +0000 (+0000)
Subject: Added option -empty-list-eq-false.
X-Git-Tag: 20090517-FFI~6135
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7d8f66e97844f21958f6f1d7bcb22a254820d155;p=mit-scheme.git

Added option -empty-list-eq-false.
---

diff --git a/v7/src/microcode/option.c b/v7/src/microcode/option.c
index 0541f112f..d4d5e6ff3 100644
--- a/v7/src/microcode/option.c
+++ b/v7/src/microcode/option.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: option.c,v 1.41 1995/04/28 07:04:52 cph Exp $
+$Id: option.c,v 1.42 1995/07/27 00:10:55 adams Exp $
 
 Copyright (c) 1990-95 Massachusetts Institute of Technology
 
@@ -120,6 +120,7 @@ int option_emacs_subprocess;
 int option_force_interactive;
 int option_disable_core_dump;
 int option_band_specified;
+int option_empty_list_eq_false;
 
 /* String options */
 CONST char ** option_library_path = 0;
@@ -664,6 +665,7 @@ DEFUN (parse_standard_options, (argc, argv), int argc AND CONST char ** argv)
   option_argument ("-stack", 1, (&option_raw_stack));
   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));
 #ifdef HAS_COMPILER_SUPPORT
   option_argument ("-compiler", 0, (&option_compiler_defaults));
   option_argument ("-edwin", 0, (&option_edwin_defaults));
@@ -1305,4 +1307,5 @@ DEFUN (read_command_line_options, (argc, argv),
 
   if (option_summary)
     describe_options ();
+
 }
diff --git a/v7/src/microcode/option.h b/v7/src/microcode/option.h
index ea2ac42c0..125c9b20a 100644
--- a/v7/src/microcode/option.h
+++ b/v7/src/microcode/option.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: option.h,v 1.10 1993/02/11 02:26:13 adams Exp $
+$Id: option.h,v 1.11 1995/07/27 00:11:31 adams Exp $
 
 Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
@@ -46,6 +46,7 @@ extern CONST char ** option_unused_argv;
 extern int option_emacs_subprocess;
 extern int option_force_interactive;
 extern int option_disable_core_dump;
+extern int option_empty_list_eq_false;
 
 /* String options */
 extern CONST char ** option_library_path;