emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/parseclj 5cf5cd5f53 182/185: Replace seq-doseq with mapcar


From: ELPA Syncer
Subject: [nongnu] elpa/parseclj 5cf5cd5f53 182/185: Replace seq-doseq with mapcar... IDK
Date: Tue, 28 Dec 2021 14:05:34 -0500 (EST)

branch: elpa/parseclj
commit 5cf5cd5f53d398f72bfe85b6fee178118c38f5ee
Author: Arne Brasseur <arne@arnebrasseur.net>
Commit: Arne Brasseur <arne@arnebrasseur.net>

    Replace seq-doseq with mapcar... IDK
---
 parseclj-alist.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/parseclj-alist.el b/parseclj-alist.el
index 824f491667..dcca15f598 100644
--- a/parseclj-alist.el
+++ b/parseclj-alist.el
@@ -82,10 +82,12 @@ For example: (parseclj-hash-table :foo 123 :bar 456)"
   ;; Emacs 27: (map-merge 'alist l1 l2)
   (let ((keys (delete-dups (append (mapcar #'car l1) (mapcar #'car l2))))
         (res '()))
-    (seq-doseq (key keys)
-      (push (or (assoc key l2)
-                (assoc key l1))
-            res))
+    (mapcar
+     (lambda (key)
+       (push (or (assoc key l2)
+                 (assoc key l1))
+             res))
+     keys)
     (nreverse res)))
 
 (provide 'parseclj-alist)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]