From: Chris Hanson Date: Fri, 22 Jul 1988 22:54:04 +0000 (+0000) Subject: For "operator" microcode error handlers, the irritants were not being X-Git-Tag: 20090517-FFI~12640 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dc9c89e3ca10a96ebf4c34be5235c55d6f2cf6e3;p=mit-scheme.git For "operator" microcode error handlers, the irritants were not being passed as a list, resulting in a different error being signalled whenever such an error occurred. --- diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm index e526e3bcb..b0deb974d 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.2 1988/06/13 11:58:37 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.3 1988/07/22 22:53:14 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -421,7 +421,7 @@ MIT in each case. |# (define-error-handler error-type 'INTERNAL-APPLY true (lambda (condition-type frame) (make-error-condition condition-type - (internal-apply-frame/operator frame) + (list (internal-apply-frame/operator frame)) repl-environment)))) (define (define-operand-handler error-type irritant #!optional filter) diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm index d7268b27e..265edf767 100644 --- a/v7/src/runtime/version.scm +++ b/v7/src/runtime/version.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.14 1988/07/16 18:54:56 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/version.scm,v 14.15 1988/07/22 22:54:04 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -45,7 +45,7 @@ MIT in each case. |# '())) (add-system! microcode-system) (add-event-receiver! event:after-restore snarf-microcode-version!) - (add-identification! "Runtime" 14 14)) + (add-identification! "Runtime" 14 15)) (define microcode-system)