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 b37688caa35c9e564b82a5d64c625ac21587f23b..621171bfa96b429d57b2ecdaa880116d6ead39ab 100644 (file)
--- 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))