From 5a83380ff38a8daf80cd153f9cc08e90adb694a4 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 26 Nov 1990 16:58:32 +0000 Subject: [PATCH] Add UNKNOWN-PRIMITIVE-CONTINUATION error, and PRIMITIVE-CONTINUE return code. --- v7/src/microcode/utabmd.scm | 6 ++++-- v8/src/microcode/utabmd.scm | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index bdf9311a7..77df4d31e 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.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 )) ;;; [] Errors @@ -530,6 +531,7 @@ FASDUMP-ENVIRONMENT ;38 FASLOAD-BAND ;39 FASLOAD-COMPILED-MISMATCH ;3A + UNKNOWN-PRIMITIVE-CONTINUATION ;3B )) ;;; [] 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 511d8884e..85821fe87 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.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 )) ;;; [] Errors @@ -530,6 +531,7 @@ FASDUMP-ENVIRONMENT ;38 FASLOAD-BAND ;39 FASLOAD-COMPILED-MISMATCH ;3A + UNKNOWN-PRIMITIVE-CONTINUATION ;3B )) ;;; [] 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 -- 2.25.1