From b377d3e85771751051f2763cfab05819f6b69c99 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 15 Jul 1997 22:54:57 +0000
Subject: [PATCH] Merged in changes to make 7.4 and 8.0 more alike.

---
 v7/src/microcode/boot.c | 22 ++++++++--------------
 1 file changed, 8 insertions(+), 14 deletions(-)

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 6bbf75031..fd2bd3e7f 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.97 1996/10/02 18:57:09 cph Exp $
+$Id: boot.c,v 9.98 1997/07/15 22:54:57 adams Exp $
 
 Copyright (c) 1988-96 Massachusetts Institute of Technology
 
@@ -118,6 +118,13 @@ DEFUN (main_name, (argc, argv),
   init_exit_scheme ();
   scheme_program_name = (argv[0]);
   initial_C_stack_pointer = ((PTR) (&argc));
+
+#ifdef WINNT
+  {
+    extern void NT_initialize_win32_system_utilities();
+    NT_initialize_win32_system_utilities ();
+  }
+#endif
 #ifdef PREALLOCATE_HEAP_MEMORY
   PREALLOCATE_HEAP_MEMORY ();
 #endif
@@ -357,19 +364,6 @@ DEFUN_VOID (initialize_fixed_objects_vector)
      GENERIC_TRAMPOLINE_MODULO,
      SHARP_F);
 
-  /* This guarantees that it will not be EQ? to anything
-     until smashed by the runtime system.
-   */
-
-  (*Free++) = EMPTY_LIST;
-  (*Free++) = EMPTY_LIST;
-  FAST_VECTOR_SET
-    (fixed_objects_vector,
-     ARITY_DISPATCHER_TAG,
-     (MAKE_POINTER_OBJECT (TC_LIST, (Free - 2))));
-
-  /* Rather than the above, we use an unlikely interned symbol
-   */
   FAST_VECTOR_SET
     (fixed_objects_vector,
      ARITY_DISPATCHER_TAG,
-- 
2.25.1