From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 Dec 1989 05:06:30 +0000 (+0000)
Subject: If a microcode error is missing a handler, report the error without
X-Git-Tag: 20090517-FFI~11623
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1f69197ba118cd81e4f4deccaf0400bb44822518;p=mit-scheme.git

If a microcode error is missing a handler, report the error without
special handling for the irritants.
---

diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm
index e0609c311..c7a972243 100644
--- a/v7/src/runtime/uerror.scm
+++ b/v7/src/runtime/uerror.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.10 1989/10/26 06:47:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.11 1989/12/07 05:06:30 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -91,8 +91,8 @@ MIT in each case. |#
 					   (loop (cdr translators)))))))))))
 	     (if translator
 		 (translator error-type frame)
-		 (make-error-condition error-type:missing-handler
-				       (list error-type)
+		 (make-error-condition error-type
+				       '()
 				       repl-environment)))))))))
 
 (define (anomalous-microcode-error error-code interrupt-enables)
@@ -209,7 +209,6 @@ MIT in each case. |#
 (define error-type:fasdump)
 (define error-type:fasload)
 (define error-type:illegal-argument)
-(define error-type:missing-handler)
 (define error-type:file)
 (define error-type:open-file)
 (define error-type:random-internal)
@@ -237,9 +236,7 @@ MIT in each case. |#
   (set! error-type:fasload
 	(make-condition-type (list error-type:file) "Fasload error"))
   (set! error-type:anomalous
-	(make-internal-type "Anomalous microcode error"))
-  (set! error-type:missing-handler
-	(make-internal-type "Missing handler for microcode error")))
+	(make-internal-type "Anomalous microcode error")))
 
 (define (make-base-type message)
   (make-condition-type (list condition-type:error) message))