Add the INTERNAL-APPLY-VAL return code.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 141c1aa72c536d9b3eccdd0211d645897dacec6a..407a1d5fe8f98351d9b47569722d9bd44b3d7c79 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.50 1989/10/26 07:49:55 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.51 1990/01/29 21:14:15 jinx Exp $
 
 (declare (usual-integrations))
 
@@ -463,6 +463,7 @@
               #F                                       ;5A
               COMPILER-LINK-CACHES-RESTART             ;5B
               HARDWARE-TRAP                            ;5C
+              INTERNAL-APPLY-VAL                       ;5D
               ))
 \f
 ;;; [] Errors
@@ -586,4 +587,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.50 1989/10/26 07:49:55 cph Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.51 1990/01/29 21:14:15 jinx Exp $"
\ No newline at end of file

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index bb531cda249113ae0a973ac0ff157f7882f33d4d..df40b90fe3e1afc3dc6dab2dc144cd00a679fab9 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.50 1989/10/26 07:49:55 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.51 1990/01/29 21:14:15 jinx Exp $
 
 (declare (usual-integrations))
 
@@ -463,6 +463,7 @@
               #F                                       ;5A
               COMPILER-LINK-CACHES-RESTART             ;5B
               HARDWARE-TRAP                            ;5C
+              INTERNAL-APPLY-VAL                       ;5D
               ))
 \f
 ;;; [] Errors
@@ -586,4 +587,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.50 1989/10/26 07:49:55 cph Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.51 1990/01/29 21:14:15 jinx Exp $"
\ No newline at end of file