From d701d8a277afc2d052d0bc2165d915b7dc4ae70e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 Dec 1987 21:59:30 +0000
Subject: [PATCH] Add new termination code which means that the interpreter was
 requested to exit by some external source.

---
 v7/src/microcode/errors.h  |  5 +++--
 v7/src/microcode/storage.c | 10 ++++++----
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/v7/src/microcode/errors.h b/v7/src/microcode/errors.h
index d4fd58b2b..15d29ef37 100644
--- a/v7/src/microcode/errors.h
+++ b/v7/src/microcode/errors.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/errors.h,v 9.27 1987/12/04 22:15:36 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/errors.h,v 9.28 1987/12/13 21:59:11 cph Rel $
  *
  * Error and termination code declarations.
  *
@@ -135,10 +135,11 @@ MIT in each case. */
 #define TERM_NO_SPACE				0x15
 #define TERM_SIGNAL				0x16
 #define TERM_TOUCH				0x17
+#define TERM_SAVE_AND_EXIT			0x18
 
 /*
   If you add any termination codes here, remember to add them to
   storage.c as well.
  */
 
-#define MAX_TERMINATION				0x17
+#define MAX_TERMINATION				0x18
diff --git a/v7/src/microcode/storage.c b/v7/src/microcode/storage.c
index d9471a87f..86961f413 100644
--- a/v7/src/microcode/storage.c
+++ b/v7/src/microcode/storage.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/storage.c,v 9.39 1987/12/04 22:19:35 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/storage.c,v 9.40 1987/12/13 21:59:30 cph Rel $
 
 This file defines the storage for global variables for
 the Scheme Interpreter. */
@@ -348,12 +348,13 @@ char *Term_Names[] = {
 /* 0x14 */		"GC-OUT-OF-SPACE",
 /* 0x15 */		"NO-SPACE",
 /* 0x16 */		"SIGNAL",
-/* 0x17 */		"TOUCH"
+/* 0x17 */		"TOUCH",
+/* 0x18 */		"SAVE-AND-EXIT"
 };
 
 /* If you change this table, change the Term_Messages table below as well. */
 
-#if (MAX_TERMINATION != 0x17)
+#if (MAX_TERMINATION != 0x18)
 /* Cause an error */
 #include "Inconsistency: errors.h and storage.c (Termination code table)"
 #endif
@@ -384,5 +385,6 @@ char *Term_Messages[] = {
 /* 0x14 */		"Out of space after garbage collection",
 /* 0x15 */		"Out of memory: Available memory exceeded",
 /* 0x16 */		"Unhandled signal received",
-/* 0x17 */		"Touch without futures support"
+/* 0x17 */		"Touch without futures support",
+/* 0x18 */		"Halt requested by external source"
 };
-- 
2.25.1