From 0bfe357a6e3cdc241af1bf50b21c5812041d953e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 4 Aug 1989 02:42:32 +0000 Subject: [PATCH] Change error message from "Bound variable" to "Illegal to rebind variable". --- v7/src/runtime/uerror.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/uerror.scm b/v7/src/runtime/uerror.scm index 014cbd5cc..4ca93f247 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.8 1989/04/05 05:46:30 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/uerror.scm,v 14.9 1989/08/04 02:42:32 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -280,7 +280,8 @@ MIT in each case. |# (lambda (entry) (vector-set! types (microcode-error (car entry)) (cadr entry))) `( - (BAD-ASSIGNMENT ,(make-internal-type "Bound variable")) (BAD-ERROR-CODE ,(make-internal-type "Illegal error code")) + (BAD-ASSIGNMENT ,(make-internal-type "Illegal to rebind variable")) + (BAD-ERROR-CODE ,(make-internal-type "Illegal error code")) (BAD-FRAME ,(make-internal-type "Illegal environment frame")) (BAD-INTERRUPT-CODE ,(make-internal-type "Illegal interrupt code")) (BAD-RANGE-ARGUMENT-0 ,(make-bad-range-type 0)) -- 2.25.1