From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Apr 1991 06:37:57 +0000 (+0000)
Subject: When a variable value validity test is failed, signal an editor error
X-Git-Tag: 20090517-FFI~10733
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=12774ef3955552695cae35e2bbb7b5b625242382;p=mit-scheme.git

When a variable value validity test is failed, signal an editor error
instead of a Scheme error.
---

diff --git a/v7/src/edwin/comman.scm b/v7/src/edwin/comman.scm
index b37688caa..621171bfa 100644
--- a/v7/src/edwin/comman.scm
+++ b/v7/src/edwin/comman.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comman.scm,v 1.66 1991/04/21 00:49:23 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comman.scm,v 1.67 1991/04/23 06:37:57 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -143,7 +143,8 @@
 
 (define (check-variable-value-validity! variable value)
   (if (not (variable-value-valid? variable value))
-      (error:datum-out-of-range value)))
+      (editor-error "Invalid value for " (variable-name-string variable)
+		    ": " value)))
 
 (define (variable-value-valid? variable value)
   (or (not (variable-value-validity-test variable))