* lisp/url/url-future.el (url-future-test): Fix scope of `saver'.

[gnu-emacs] / lisp / url / url-future.el

diff --git a/lisp/url/url-future.el b/lisp/url/url-future.el
index 334c4fa91264a8b36c67e73c9bbe698f43cf1fe0..ac85a3cec4714f55a0efc4fb2aac064726f7cf62 100644 (file)
--- a/lisp/url/url-future.el
+++ b/lisp/url/url-future.el
@@ -96,7 +96,8 @@
     (url-future-finish url-future 'cancel)))
 
 (ert-deftest url-future-test ()
-  (let* ((text "running future")
+  (let* (saver
+        (text "running future")
          (good (make-url-future :value (lambda () (format text))
                                 :callback (lambda (f) (set 'saver f))))
          (bad (make-url-future :value (lambda () (/ 1 0))
@@ -104,8 +105,7 @@
          (tocancel (make-url-future :value (lambda () (/ 1 0))
                                     :callback (lambda (f) (set 'saver f))
                                     :errorback (lambda (&rest d)
-                                                 (set 'saver d))))
-         saver)
+                                                 (set 'saver d)))))
     (should (equal good (url-future-call good)))
     (should (equal good saver))
     (should (equal text (url-future-value good)))