From 12774ef3955552695cae35e2bbb7b5b625242382 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Apr 1991 06:37:57 +0000
Subject: [PATCH] When a variable value validity test is failed, signal an
 editor error instead of a Scheme error.

---
 v7/src/edwin/comman.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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))
-- 
2.25.1