Change `delayed' type name to be `promise'; make `delayed' be an

alternate alias.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index ed14357cdd1ea2e7a0e2a029d2d36fed12d33bad..2df4b6f29deb3ff686578c83cd7b6b828a52f66b 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.45 1988/05/03 16:30:39 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.46 1988/07/15 20:26:31 cph Exp $
 
 (declare (usual-integrations))
 
@@ -115,7 +115,7 @@
               (ENTITY)                                 ;10
               DELAY                                    ;11
               ENVIRONMENT                              ;12
-              DELAYED                                  ;13
+              (PROMISE DELAYED)                        ;13
               EXTENDED-LAMBDA                          ;14
               COMMENT                                  ;15
               NON-MARKED-VECTOR                        ;16
@@ -571,4 +571,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.45 1988/05/03 16:30:39 jinx Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.46 1988/07/15 20:26:31 cph Exp $"
\ No newline at end of file

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index a4abf8d2077c417b95821ea673dae246f0873820..72f9bbae40c49549529821abfcfdfccc8f13fc53 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.45 1988/05/03 16:30:39 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.46 1988/07/15 20:26:31 cph Exp $
 
 (declare (usual-integrations))
 
@@ -115,7 +115,7 @@
               (ENTITY)                                 ;10
               DELAY                                    ;11
               ENVIRONMENT                              ;12
-              DELAYED                                  ;13
+              (PROMISE DELAYED)                        ;13
               EXTENDED-LAMBDA                          ;14
               COMMENT                                  ;15
               NON-MARKED-VECTOR                        ;16
@@ -571,4 +571,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.45 1988/05/03 16:30:39 jinx Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.46 1988/07/15 20:26:31 cph Exp $"
\ No newline at end of file