From 4aebf3c3af7c1b3eadf5c6005870a5c353e5da31 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Nov 1990 10:59:26 +0000
Subject: [PATCH] Use DISABLE_HISTORY instead of COMPILE_HISTORY.

---
 v7/src/microcode/history.h        | 14 +++++++-------
 v7/src/microcode/hooks.c          |  4 ++--
 v7/src/microcode/unxutl/cf-dist.h | 15 ++++-----------
 3 files changed, 13 insertions(+), 20 deletions(-)

diff --git a/v7/src/microcode/history.h b/v7/src/microcode/history.h
index 1401b0bb3..4ec285f09 100644
--- a/v7/src/microcode/history.h
+++ b/v7/src/microcode/history.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/history.h,v 9.26 1990/06/20 17:40:53 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/history.h,v 9.27 1990/11/14 10:57:45 cph Rel $
 
 Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -84,7 +84,7 @@ MIT in each case. */
 
 /* History manipulation in the interpreter. */
 
-#ifdef COMPILE_HISTORY
+#ifndef DISABLE_HISTORY
 
 #define New_Subproblem(expression, environment)				\
 {									\
@@ -124,18 +124,18 @@ MIT in each case. */
   History = (OBJECT_ADDRESS (History [HIST_PREV_SUBPROBLEM]));		\
 }
 
-#else /* not COMPILE_HISTORY */
+#else /* DISABLE_HISTORY */
 
 #define New_Subproblem(Expr, Env) {}
 #define Reuse_Subproblem(Expr, Env) {}
 #define New_Reduction(Expr, Env) {}
 #define End_Subproblem() {}
 
-#endif /* COMPILE_HISTORY */
+#endif /* DISABLE_HISTORY */
 
 /* History manipulation for the compiled code interface. */
 
-#ifdef COMPILE_HISTORY
+#ifndef DISABLE_HISTORY
 
 #define Compiler_New_Reduction()					\
 {									\
@@ -153,10 +153,10 @@ MIT in each case. */
 
 #define Compiler_End_Subproblem End_Subproblem
 
-#else /* not COMPILE_HISTORY */
+#else /* DISABLE_HISTORY */
 
 #define Compiler_New_Reduction()
 #define Compiler_New_Subproblem()
 #define Compiler_End_Subproblem()
 
-#endif /* COMPILE_HISTORY */
+#endif /* DISABLE_HISTORY */
diff --git a/v7/src/microcode/hooks.c b/v7/src/microcode/hooks.c
index 8a2810e54..ee87b0a72 100644
--- a/v7/src/microcode/hooks.c
+++ b/v7/src/microcode/hooks.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/hooks.c,v 9.40 1990/11/13 08:44:43 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/hooks.c,v 9.41 1990/11/14 10:57:22 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -609,7 +609,7 @@ DEFINE_PRIMITIVE ("SET-CURRENT-HISTORY!", Prim_set_current_history, 1, 1, 0)
   PRIMITIVE_CANONICALIZE_CONTEXT ();
   CHECK_ARG (1, HUNK3_P);
   Val = (*History);
-#ifdef COMPILE_HISTORY
+#ifndef DISABLE_HISTORY
   History = (OBJECT_ADDRESS (ARG_REF (1)));
 #else
   History = (OBJECT_ADDRESS (Get_Fixed_Obj_Slot (Dummy_History)));
diff --git a/v7/src/microcode/unxutl/cf-dist.h b/v7/src/microcode/unxutl/cf-dist.h
index 32c422af9..c1545dc25 100644
--- a/v7/src/microcode/unxutl/cf-dist.h
+++ b/v7/src/microcode/unxutl/cf-dist.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/unxutl/Attic/cf-dist.h,v 1.11 1990/06/20 20:00:27 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/unxutl/Attic/cf-dist.h,v 1.12 1990/11/14 10:59:26 cph Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -66,16 +66,9 @@ MIT in each case. */
 /* #define HAVE_STARBASE_GRAPHICS */
 /* #define STARBASE_DEVICE_DRIVERS -ldd300h -ldd98700 -ldd98710 -ldd98556 */
 
-/* Some useful compilation options:
-   -DCOMPILE_HISTORY		turns on history recording mechanism
-   -DENABLE_DEBUGGING_TOOLS	turns on microcode debugging tools
-   -DUSE_STACKLETS		selects heap-allocated stack
-   -DCOMPILE_FUTURES		turns on parallel processing features
-   -DFUTURE_LOGGING		???
-   -DCOMPILE_STEPPER		enables single-stepper (currently broken)
-   */
-
-#define C_SWITCH_FEATURES -DCOMPILE_HISTORY
+/* Some compilation options:
+   -DDISABLE_HISTORY		turns off history recording mechanism */
+#define C_SWITCH_FEATURES
 
 /* The following two switches are mutually exclusive for most C compilers.
    An exception is the GNU C compiler. */
-- 
2.25.1