From: Chris Hanson Date: Sat, 16 Apr 2005 03:15:22 +0000 (+0000) Subject: Eliminate NULL type-code name. X-Git-Tag: 20090517-FFI~1327 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4903e5114ef05f4eb0486e1f690f7df6f5dfe2c9;p=mit-scheme.git Eliminate NULL type-code name. --- diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index 5e01ef63e..5669c6914 100644 --- 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 df3860863..cf2b337cb 100644 --- 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