From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 16 Jul 1997 02:40:39 +0000 (+0000)
Subject: Changed TC_TRUE to TC_CONSTANT
X-Git-Tag: 20090517-FFI~5045
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=436eaaf03738ffcacfe1cffcf6b746ca245b49f1;p=mit-scheme.git

Changed TC_TRUE to TC_CONSTANT
---

diff --git a/v7/src/microcode/const.h b/v7/src/microcode/const.h
index 5bbd6c6ae..6538ed434 100644
--- a/v7/src/microcode/const.h
+++ b/v7/src/microcode/const.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: const.h,v 9.43 1993/09/11 02:45:52 gjr Exp $
+$Id: const.h,v 9.44 1997/07/16 02:39:43 adams Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -66,8 +66,8 @@ MIT in each case. */
 
 #ifndef SHARP_F			/* Safe version */
 #define SHARP_F			MAKE_OBJECT (TC_NULL, 0)
-#define SHARP_T			MAKE_OBJECT (TC_TRUE, 0)
-#define UNSPECIFIC		MAKE_OBJECT (TC_TRUE, 1)
+#define SHARP_T			MAKE_OBJECT (TC_CONSTANT, 0)
+#define UNSPECIFIC		MAKE_OBJECT (TC_CONSTANT, 1)
 #define FIXNUM_ZERO		MAKE_OBJECT (TC_FIXNUM, 0)
 #define BROKEN_HEART_ZERO	MAKE_OBJECT (TC_BROKEN_HEART, 0)
 #endif /* SHARP_F */
@@ -108,7 +108,7 @@ MIT in each case. */
 /* For headers in pure / constant area */
 
 #define END_OF_BLOCK		TC_FIXNUM
-#define CONSTANT_PART		TC_TRUE
+#define CONSTANT_PART		TC_CONSTANT
 #define PURE_PART		TC_FALSE
 
 /* Primitive flow control codes: directs computation after
@@ -151,7 +151,7 @@ MIT in each case. */
 /* VMS preprocessor does not like line continuations in conditionals */
 
 #define Are_The_Constants_Incompatible					\
-((TC_NULL != 0x00) || (TC_TRUE != 0x08) ||				\
+((TC_NULL != 0x00) || (TC_CONSTANT != 0x08) ||				\
  (TC_FIXNUM != 0x1A) || (TC_BROKEN_HEART != 0x22) || 			\
  (TC_CHARACTER_STRING != 0x1E))
 
diff --git a/v7/src/microcode/fasl.h b/v7/src/microcode/fasl.h
index 514b0d773..46b03a153 100644
--- a/v7/src/microcode/fasl.h
+++ b/v7/src/microcode/fasl.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fasl.h,v 9.36 1994/11/19 21:22:47 cph Exp $
+$Id: fasl.h,v 9.37 1997/07/16 02:39:26 adams Exp $
 
 Copyright (c) 1987-94 Massachusetts Institute of Technology
 
@@ -88,10 +88,10 @@ MIT in each case. */
 #define CI_MASK			((ONE << (DATUM_LENGTH / 2)) - 1)
 #define CI_VERSION(P)		(((P) >> (DATUM_LENGTH / 2)) & CI_MASK)
 #define CI_PROCESSOR(P)		((P) & CI_MASK)
-#define CI_BAND_P(P)		((OBJECT_TYPE (P)) == TC_TRUE)
+#define CI_BAND_P(P)		((OBJECT_TYPE (P)) == TC_CONSTANT)
 
 #define MAKE_CI_VERSION(Band_p, Version, Processor_Type)		\
-  MAKE_OBJECT (((Band_p) ? TC_TRUE : TC_NULL),				\
+  MAKE_OBJECT (((Band_p) ? TC_CONSTANT : TC_NULL),				\
 	       ((((unsigned long) (Version)) << (DATUM_LENGTH / 2))	\
 		| (Processor_Type)))
 
diff --git a/v7/src/microcode/gctype.c b/v7/src/microcode/gctype.c
index 30f78c4f7..cce93f41d 100644
--- a/v7/src/microcode/gctype.c
+++ b/v7/src/microcode/gctype.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: gctype.c,v 9.32 1992/12/05 03:33:18 cph Exp $
+$Id: gctype.c,v 9.33 1997/07/16 02:40:39 adams Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -49,7 +49,7 @@ int GC_Type_Map[MAX_TYPE_CODE + 1] = {
     GC_Pair,			/* TC_UNINTERNED_SYMBOL */
     GC_Vector,			/* TC_BIG_FLONUM */
     GC_Pair,			/* TC_COMBINATION_1 */
-    GC_Non_Pointer,		/* TC_TRUE */
+    GC_Non_Pointer,		/* TC_CONSTANT */
     GC_Pair,			/* TC_EXTENDED_PROCEDURE */
     GC_Vector,			/* TC_VECTOR */
     GC_Non_Pointer,		/* TC_RETURN_CODE */