From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 26 Jul 1995 18:31:47 +0000 (+0000)
Subject: Merged changes from OS2 and OS2 and new tag scheme.
X-Git-Tag: 20090517-FFI~6159
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a28c04119ca8ad6d3c5e2726b1aebc0bf8ace734;p=mit-scheme.git

Merged changes from OS2 and OS2 and new tag scheme.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 647078b3c..e0aa2eaa3 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.95 1995/04/28 07:04:50 cph Exp $
+$Id: boot.c,v 9.96 1995/07/26 18:31:47 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -178,6 +178,11 @@ DEFUN (main_name, (argc, argv),
       Setup_Memory ((BLOCKS_TO_BYTES (Heap_Size)),
 		    (BLOCKS_TO_BYTES (Stack_Size)),
 		    (BLOCKS_TO_BYTES (Constant_Size)));
+      if (option_empty_list_eq_false)
+	EMPTY_LIST = SHARP_F;
+      else
+	EMPTY_LIST = EMPTY_LIST_VALUE;
+
       initialize_primitives ();
       if (! option_fasl_file)
 	{
@@ -248,7 +253,7 @@ DEFUN_VOID (initialize_fixed_objects_vector)
   Fixed_Objects = fixed_objects_vector;
   FAST_VECTOR_SET (fixed_objects_vector, Me_Myself, fixed_objects_vector);
   FAST_VECTOR_SET
-    (fixed_objects_vector, Non_Object, (MAKE_OBJECT (TC_TRUE, 2)));
+    (fixed_objects_vector, Non_Object, (MAKE_OBJECT (TC_CONSTANT, 2)));
   FAST_VECTOR_SET
     (fixed_objects_vector,
      System_Interrupt_Vector,
@@ -362,6 +367,13 @@ DEFUN_VOID (initialize_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,
+     char_pointer_to_symbol("#[(microcode)arity-dispatcher-tag]"));
+
 #ifdef DOS386
   {
     extern void EXFUN (DOS_initialize_fov, (SCHEME_OBJECT));