scratch/package-vc-fixes a10cd1b927 36/48: Fix accidental generation of circular lists

[Philip Kaludercic]

branch: scratch/package-vc-fixes
commit a10cd1b927d95c63b3c1c5f52f74b85d1e0d6c96
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Fix accidental generation of circular lists
    
    * lisp/emacs-lisp/package-vc.el (package-vc--desc->spec): Replace
    'mapcar' with 'apply'.
---
 lisp/emacs-lisp/package-vc.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index f025a963a4..41eae81491 100644
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -219,7 +219,7 @@ name for PKG-DESC."
    (if (package-desc-archive pkg-desc)
        (alist-get (intern (package-desc-archive pkg-desc))
                   package-vc--archive-spec-alist)
-     (mapcan #'append (mapcar #'cdr package-vc--archive-spec-alist)))
+     (apply #'append (mapcar #'cdr package-vc--archive-spec-alist)))
    nil nil #'string=))
 
 (define-inline package-vc--query-spec (pkg-desc prop)