From 6e107b3ff543b7c2924399118525fe4b1993cad2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 21 Jul 1992 04:27:49 +0000 Subject: [PATCH] Add new type code names. --- v7/src/microcode/utabmd.scm | 10 +++++----- v8/src/microcode/utabmd.scm | 10 +++++----- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index 0fe1707f1..c31dd82e1 100644 --- a/v7/src/microcode/utabmd.scm +++ b/v7/src/microcode/utabmd.scm @@ -1,8 +1,8 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.62 1992/07/06 23:42:05 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.63 1992/07/21 04:27:49 cph Exp $ ;;; -;;; Copyright (c) 1987-1992 Massachusetts Institute of Technology +;;; Copyright (c) 1987-92 Massachusetts Institute of Technology ;;; ;;; This material was developed by the Scheme project at the ;;; Massachusetts Institute of Technology, Department of @@ -123,7 +123,7 @@ UNINTERNED-SYMBOL ;05 (FLONUM BIG-FLONUM) ;06 COMBINATION-1 ;07 - TRUE ;08 + (TRUE CONSTANT) ;08 EXTENDED-PROCEDURE ;09 VECTOR ;0A (RETURN-CODE RETURN-ADDRESS) ;0B @@ -141,7 +141,7 @@ LAMBDA ;17 PRIMITIVE ;18 SEQUENCE-2 ;19 - (FIXNUM ADDRESS) ;1A + (FIXNUM ADDRESS POSITIVE-FIXNUM NEGATIVE-FIXNUM) ;1A PRIMITIVE-COMBINATION-1 ;1B CONTROL-POINT ;1C INTERNED-SYMBOL ;1D @@ -702,4 +702,4 @@ ;;; This identification string is saved by the system. -"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.62 1992/07/06 23:42:05 jinx Exp $" \ No newline at end of file +"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.63 1992/07/21 04:27:49 cph Exp $" \ No newline at end of file diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm index 7c043fd46..555e3419c 100644 --- a/v8/src/microcode/utabmd.scm +++ b/v8/src/microcode/utabmd.scm @@ -1,8 +1,8 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.62 1992/07/06 23:42:05 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.63 1992/07/21 04:27:49 cph Exp $ ;;; -;;; Copyright (c) 1987-1992 Massachusetts Institute of Technology +;;; Copyright (c) 1987-92 Massachusetts Institute of Technology ;;; ;;; This material was developed by the Scheme project at the ;;; Massachusetts Institute of Technology, Department of @@ -123,7 +123,7 @@ UNINTERNED-SYMBOL ;05 (FLONUM BIG-FLONUM) ;06 COMBINATION-1 ;07 - TRUE ;08 + (TRUE CONSTANT) ;08 EXTENDED-PROCEDURE ;09 VECTOR ;0A (RETURN-CODE RETURN-ADDRESS) ;0B @@ -141,7 +141,7 @@ LAMBDA ;17 PRIMITIVE ;18 SEQUENCE-2 ;19 - (FIXNUM ADDRESS) ;1A + (FIXNUM ADDRESS POSITIVE-FIXNUM NEGATIVE-FIXNUM) ;1A PRIMITIVE-COMBINATION-1 ;1B CONTROL-POINT ;1C INTERNED-SYMBOL ;1D @@ -702,4 +702,4 @@ ;;; This identification string is saved by the system. -"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.62 1992/07/06 23:42:05 jinx Exp $" \ No newline at end of file +"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.63 1992/07/21 04:27:49 cph Exp $" \ No newline at end of file -- 2.25.1