# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 685867196 0
# Node ID ba116e58de49cd37e79152171ad0b26252c9cd6f
# Parent  4c9349866dac2d80c2b1340a9274db51571141f6
*** empty log message ***

diff -r 4c9349866dac -r ba116e58de49 lisp/map-ynp.el
--- a/lisp/map-ynp.el	Thu Sep 26 06:39:41 1991 +0000
+++ b/lisp/map-ynp.el	Thu Sep 26 06:39:56 1991 +0000
@@ -69,23 +69,25 @@
 	(actions 0)
 	prompt
 	char
+	elt
 	(next (if (or (symbolp list)
 		      (subrp list)
 		      (compiled-function-p list)
 		      (and (consp list)
 			   (eq (car list) 'lambda)))
-		  list
+		  (function (lambda ()
+			      (setq elt (funcall list))))
 		(function (lambda ()
 			    (if list
-				(prog1
-				    (car list)
-				  (setq list (cdr list)))
-			      nil)))))
-	elt)
+				(progn
+				  (setq elt (car list)
+					list (cdr list))
+				  t)
+			      nil))))))
     (if (stringp prompter)
 	(setq prompter (` (lambda (object)
 			    (format (, prompter) object)))))
-    (while (setq elt (funcall next))
+    (while (funcall next)
       (setq prompt (funcall prompter elt))
       (if (stringp prompt)
 	  (progn