From cbfbc4aa3caa7c2715247bd05848f49bc5641d38 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Mon, 29 Jan 1990 21:14:15 +0000
Subject: [PATCH] Add the INTERNAL-APPLY-VAL return code.

---
 v7/src/microcode/utabmd.scm | 5 +++--
 v8/src/microcode/utabmd.scm | 5 +++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 141c1aa72..407a1d5fe 100644
--- 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
 	       ))
 
 ;;; [] 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 bb531cda2..df40b90fe 100644
--- 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
 	       ))
 
 ;;; [] 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
-- 
2.25.1