From 765aeb281e2301f88723e1876d2c4b813b10fdb9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Oct 1988 18:21:08 +0000
Subject: [PATCH] Make sure that TERM_SIGNAL control variables are initialized
 correctly even when `dump-world' or job control is used.  Also, force
 control-g synchronization under Emacs for all unix operating systems.

---
 v7/src/microcode/boot.c    | 20 ++++++++++----------
 v7/src/microcode/version.h |  4 ++--
 v8/src/microcode/version.h |  4 ++--
 3 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 7be71c857..442fc7a72 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.52 1988/10/21 00:12:26 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/boot.c,v 9.53 1988/10/21 18:20:51 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -170,12 +170,14 @@ Def_Number(key, nargs, args, def)
 
 /* Used to test whether it is a dumped executable version */
 
-extern Boolean Was_Scheme_Dumped, Recover_Automatically;
-Boolean
-  Was_Scheme_Dumped = false,
-  Recover_Automatically = false;
-
-int Saved_Heap_Size, Saved_Stack_Size, Saved_Constant_Size;
+extern Boolean Was_Scheme_Dumped;
+Boolean Was_Scheme_Dumped = false;
+extern Boolean Recover_Automatically;
+Boolean Recover_Automatically = false;
+Boolean inhibit_termination_messages;
+int Saved_Heap_Size;
+int Saved_Stack_Size;
+int Saved_Constant_Size;
 
 void
 usage(error_string)
@@ -300,6 +302,7 @@ main(argc, argv)
 
   Init_Exit_Scheme();
 
+  inhibit_termination_messages = false;
   Saved_argc = argc;
   Saved_argv = argv;
 
@@ -535,9 +538,6 @@ Enter_Interpreter()
   /*NOTREACHED*/
 }
 
-extern Boolean inhibit_termination_messages;
-Boolean inhibit_termination_messages = false;
-
 term_type
 Microcode_Termination(code)
      long code;
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 67e5653df..bf88e286d 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.55 1988/10/21 00:13:07 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 10.56 1988/10/21 18:21:08 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	55
+#define SUBVERSION	56
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index c45f74970..77d98d137 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.55 1988/10/21 00:13:07 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 10.56 1988/10/21 18:21:08 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		10
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	55
+#define SUBVERSION	56
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
-- 
2.25.1