From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 3 Oct 1990 16:49:07 +0000 (+0000)
Subject: Add COMPILER-ERROR-RESTART.
X-Git-Tag: 20090517-FFI~11159
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d770c7d36f9938eb17b4cf7782c8674976697e71;p=mit-scheme.git

Add COMPILER-ERROR-RESTART.
---

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 407a1d5fe..bdf9311a7 100644
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1987, 1989 Massachusetts Institute of Technology
+;;;	Copyright (c) 1987, 1989, 1990 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $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 $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.52 1990/10/03 16:49:07 jinx Exp $
 
 (declare (usual-integrations))
 
@@ -464,6 +464,7 @@
 	       COMPILER-LINK-CACHES-RESTART 		;5B
 	       HARDWARE-TRAP				;5C
 	       INTERNAL-APPLY-VAL			;5D
+	       COMPILER-ERROR-RESTART			;5E
 	       ))
 
 ;;; [] Errors
@@ -587,4 +588,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.51 1990/01/29 21:14:15 jinx Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.52 1990/10/03 16:49:07 jinx Exp $"
\ No newline at end of file
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index df40b90fe..511d8884e 100644
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1987, 1989 Massachusetts Institute of Technology
+;;;	Copyright (c) 1987, 1989, 1990 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $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 $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.52 1990/10/03 16:49:07 jinx Exp $
 
 (declare (usual-integrations))
 
@@ -464,6 +464,7 @@
 	       COMPILER-LINK-CACHES-RESTART 		;5B
 	       HARDWARE-TRAP				;5C
 	       INTERNAL-APPLY-VAL			;5D
+	       COMPILER-ERROR-RESTART			;5E
 	       ))
 
 ;;; [] Errors
@@ -587,4 +588,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.51 1990/01/29 21:14:15 jinx Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.52 1990/10/03 16:49:07 jinx Exp $"
\ No newline at end of file