From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 16 Jul 1997 01:46:32 +0000 (+0000)
Subject: Conditionalized EMPTY_LIST initialization for code sharing between 7.4 and 8.0.
X-Git-Tag: 20090517-FFI~5050
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5c84358bb066ac8546a90c2675f542fe1994392e;p=mit-scheme.git

Conditionalized EMPTY_LIST initialization for code sharing between 7.4 and 8.0.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index fd2bd3e7f..c003bd16d 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.98 1997/07/15 22:54:57 adams Exp $
+$Id: boot.c,v 9.99 1997/07/16 01:46:32 adams Exp $
 
 Copyright (c) 1988-96 Massachusetts Institute of Technology
 
@@ -186,10 +186,16 @@ DEFUN (main_name, (argc, argv),
       Setup_Memory ((BLOCKS_TO_BYTES (Heap_Size)),
 		    (BLOCKS_TO_BYTES (Stack_Size)),
 		    (BLOCKS_TO_BYTES (Constant_Size)));
+
+#ifdef EMPTY_LIST_VALUE
+      /* EMPTY_LIST_VALUE is defined if it is teh true value for '() and
+         EMPTY_LIST is a location used to store '() or #F
+	 */
       if (option_empty_list_eq_false)
 	EMPTY_LIST = SHARP_F;
       else
 	EMPTY_LIST = EMPTY_LIST_VALUE;
+#endif
 
       initialize_primitives ();
       if (! option_fasl_file)