From bd905a510745dd151fdc1df61bdfca89de06a102 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 22 Feb 1991 21:15:30 +0000 Subject: [PATCH] Fix typo in error name. This would have been caught by type-checking in compiled code. --- v7/src/runtime/uerror.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm index 967c8dfc0..630bba320 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.19 1991/02/22 21:03:07 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.20 1991/02/22 21:15:30 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -64,7 +64,8 @@ MIT in each case. |# (define (define-error-handler error-name handler) (vector-set! error-handler-vector - (microcode-error/name->code error-name) + (or (microcode-error/name->code error-name) + (error "Unknown microcode error name:" error-name)) (lambda (error-code interrupt-enables) (set-interrupt-enables! interrupt-enables) (call-with-current-continuation @@ -689,7 +690,7 @@ MIT in each case. |# '() false)) -(define-fasload-error 'FASL-FILE-COMPILED-MISMATCH +(define-fasload-error 'FASLOAD-COMPILED-MISMATCH condition-type:fasl-file-compiled-mismatch) (set! condition-type:fasl-file-too-big -- 2.25.1