Add new termination code which means that the interpreter was

requested to exit by some external source.

diff --git a/v7/src/microcode/errors.h b/v7/src/microcode/errors.h
index d4fd58b2b3a65e3ae24510a81d552a9bf1081965..15d29ef3715ce16c0d1bc793168ed360ea098152 100644 (file)
--- 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 d9471a87fca6e74f442caeced3c94985834e597a..86961f413994a0e17ba9381588ce64ac5c27c8a4 100644 (file)
--- 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"
 };