feature/pkg 2b5127902d: Fix byte-compiler warning in do-symbols

[Gerd Moellmann]

branch: feature/pkg
commit 2b5127902d5919c0c93824adee46ad466ccc9c10
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Fix byte-compiler warning in do-symbols
    
    * lisp/emacs-lisp/pkg.el (do-symbols): Make VAR used when evaluating
    RESULT-FORM.
---
 lisp/emacs-lisp/pkg.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/pkg.el b/lisp/emacs-lisp/pkg.el
index 946c65a650..47317fdf53 100644
--- a/lisp/emacs-lisp/pkg.el
+++ b/lisp/emacs-lisp/pkg.el
@@ -194,8 +194,6 @@ normally, or else if an explcit return occurs the value it 
transfers."
   (declare (indent 1))
   (cl-with-gensyms (flet-name)
     `(cl-block nil
-       ;; PKG-FIXME: This gives a warning about VAR being unused even
-       ;; if it is used.  Check what that is.
        (cl-flet ((,flet-name (,var)
                   (cl-tagbody ,@body)))
         (let* ((package (pkg--package-or-lose ,package)))
@@ -205,9 +203,10 @@ normally, or else if an explcit return occurs the value it 
transfers."
             (maphash (lambda (k v)
                        (when (eq v :external)
                          (,flet-name k)))
-                     (package-%symbols p))
+                     (package-%symbols p)))))
        (let ((,var nil))
-        ,result-form)))))))
+         ,var
+        ,result-form))))
 
 ;;;###autoload
 (cl-defmacro do-external-symbols ((var &optional (package '*package*) 
result-form)