Eliminate NULL type-code name.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 5e01ef63e7f96d690b77fe400c1baafc7fa61025..5669c6914f3a313e57dd5b141a1de928d98769ba 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -1,8 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: utabmd.scm,v 9.87 2003/02/14 18:28:24 cph Exp $
+$Id: utabmd.scm,v 9.88 2005/04/16 03:12:24 cph Exp $
 
-Copyright 1987-2002 Massachusetts Institute of Technology
+Copyright 1987,1988,1989,1990,1991,1992 Massachusetts Institute of Technology
+Copyright 1993,1994,2001,2002,2005 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -114,7 +115,7 @@ USA.
 
 (vector-set! (get-fixed-objects-vector)
             4 ;(fixed-objects-vector-slot 'MICROCODE-TYPES-VECTOR)
-            #((NULL FALSE MANIFEST-VECTOR GLOBAL-ENVIRONMENT) ;00
+            #((FALSE MANIFEST-VECTOR GLOBAL-ENVIRONMENT) ;00
               (PAIR LIST)                              ;01
               CHARACTER                                ;02
               QUOTATION                                ;03
@@ -610,4 +611,4 @@ USA.
 
 ;;; This identification string is saved by the system.
 
-"$Id: utabmd.scm,v 9.87 2003/02/14 18:28:24 cph Exp $"
+"$Id: utabmd.scm,v 9.88 2005/04/16 03:12:24 cph Exp $"

diff --git a/v7/src/runtime/scode.scm b/v7/src/runtime/scode.scm
index df386086348d8e8ef2925e39122d2b5284a26494..cf2b337cb8a2638eee186fc743c1c6eae9026905 100644 (file)
--- a/v7/src/runtime/scode.scm
+++ b/v7/src/runtime/scode.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: scode.scm,v 14.21 2005/03/26 06:15:13 cph Exp $
+$Id: scode.scm,v 14.22 2005/04/16 03:15:22 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,2001,2005 Massachusetts Institute of Technology
@@ -55,12 +55,12 @@ USA.
                ENTITY
                ENVIRONMENT
                EXTENDED-PROCEDURE
+               FALSE
                FLONUM
                HUNK3-A
                INTERNED-SYMBOL
                NEGATIVE-FIXNUM
                NON-MARKED-VECTOR
-               NULL
                PAIR
                POSITIVE-FIXNUM
                PRIMITIVE