From: Chris Hanson Date: Tue, 7 Mar 1989 01:23:04 +0000 (+0000) Subject: Add handlers for other errors that can be signalled by X-Git-Tag: 20090517-FFI~12247 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fec87e618df36c0efcbb6add7048509e3e981c1b;p=mit-scheme.git Add handlers for other errors that can be signalled by `environment-link-name'. --- diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm index af13c1724..7af837cc3 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.6 1988/12/30 06:43:40 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.7 1989/03/07 01:23:04 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -55,7 +55,8 @@ MIT in each case. |# (vector-set! fixed-objects (fixed-objects-vector-slot 'SYSTEM-ERROR-VECTOR) (make-error-handlers)) - ((ucode-primitive set-fixed-objects-vector!) fixed-objects))) + ((ucode-primitive set-fixed-objects-vector!) fixed-objects)) + unspecific) (define (make-error-handlers) (let ((error-code-limit (microcode-error/code-limit))) @@ -481,7 +482,10 @@ MIT in each case. |# (define-reference-trap-handler 'UNBOUND-VARIABLE 'COMPILER-OPERATOR-LOOKUP-TRAP-RESTART) - (define-internal-apply-handler 'BAD-ASSIGNMENT 0 2 + (define-internal-apply-handler 'BAD-ASSIGNMENT 1 2 + (ucode-primitive environment-link-name)) + + (define-internal-apply-handler 'ILLEGAL-REFERENCE-TRAP 1 2 (ucode-primitive environment-link-name)) (define-standard-frame-handler 'UNASSIGNED-VARIABLE 'EVAL-ERROR @@ -505,6 +509,9 @@ MIT in each case. |# (define-expression-frame-handler 'BAD-FRAME 'IN-PACKAGE-CONTINUE true in-package-environment) + (define-internal-apply-handler 'BAD-FRAME 0 2 + (ucode-primitive environment-link-name)) + (define-standard-frame-handler 'BROKEN-CVARIABLE 'EVAL-ERROR standard-frame/variable? variable-name)