Add UNKNOWN-PRIMITIVE-CONTINUATION error, and PRIMITIVE-CONTINUE

return code.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index bdf9311a7e522249af380fa08ee9bde2d329ddcc..77df4d31e6bb4b96bb5a0cc6f22988fad08d9c98 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.52 1990/10/03 16:49:07 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.53 1990/11/26 16:58:32 jinx Rel $
 
 (declare (usual-integrations))
 
@@ -465,6 +465,7 @@
               HARDWARE-TRAP                            ;5C
               INTERNAL-APPLY-VAL                       ;5D
               COMPILER-ERROR-RESTART                   ;5E
+              PRIMITIVE-CONTINUE                       ;5F
               ))
 \f
 ;;; [] Errors
@@ -530,6 +531,7 @@
               FASDUMP-ENVIRONMENT                      ;38
               FASLOAD-BAND                             ;39
               FASLOAD-COMPILED-MISMATCH                ;3A
+              UNKNOWN-PRIMITIVE-CONTINUATION           ;3B
               ))
 \f
 ;;; [] Terminations
@@ -588,4 +590,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.52 1990/10/03 16:49:07 jinx Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.53 1990/11/26 16:58:32 jinx Rel $"
\ No newline at end of file

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 511d8884e57a0ccdd4f0934be27c58b81778b1de..85821fe87c9c999e111ccb72b228e462dde2a821 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.52 1990/10/03 16:49:07 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.53 1990/11/26 16:58:32 jinx Rel $
 
 (declare (usual-integrations))
 
@@ -465,6 +465,7 @@
               HARDWARE-TRAP                            ;5C
               INTERNAL-APPLY-VAL                       ;5D
               COMPILER-ERROR-RESTART                   ;5E
+              PRIMITIVE-CONTINUE                       ;5F
               ))
 \f
 ;;; [] Errors
@@ -530,6 +531,7 @@
               FASDUMP-ENVIRONMENT                      ;38
               FASLOAD-BAND                             ;39
               FASLOAD-COMPILED-MISMATCH                ;3A
+              UNKNOWN-PRIMITIVE-CONTINUATION           ;3B
               ))
 \f
 ;;; [] Terminations
@@ -588,4 +590,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.52 1990/10/03 16:49:07 jinx Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.53 1990/11/26 16:58:32 jinx Rel $"
\ No newline at end of file