From d0504c5d430adfadfb9c950372dd1d529fcc7970 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 May 2001 18:37:15 +0000
Subject: [PATCH] Revert broken change to VERIFY-FINAL-VALUE.

---
 v7/src/edwin/prompt.scm | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index bc26c71d4..1d9aa8d1e 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: prompt.scm,v 1.191 2001/05/07 18:00:20 cph Exp $
+;;; $Id: prompt.scm,v 1.192 2001/05/07 18:37:15 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -590,14 +590,17 @@ a repetition of this command will exit."
 	      (editor-failure))))))))
 
 (define (verify-final-value string error-continuation)
-  (bind-condition-handler (list condition-type:error)
-      (lambda (condition)
-	condition
-	(editor-beep)
-	(temporary-typein-message " [Error]")
-	(error-continuation unspecific))
-    (lambda ()
-      ((options/verify-final-value *options*) string))))
+  (let ((verifier (options/verify-final-value *options*)))
+    (if verifier
+	(bind-condition-handler (list condition-type:error)
+	    (lambda (condition)
+	      condition
+	      (editor-beep)
+	      (temporary-typein-message " [Error]")
+	      (error-continuation unspecific))
+	  (lambda ()
+	    (verifier string)))
+	#t)))
 
 ;;;; Completion Primitives
 
-- 
2.25.1