branch: elpa/parseclj
commit 5cf5cd5f53d398f72bfe85b6fee178118c38f5ee
Author: Arne Brasseur <[email protected]>
Commit: Arne Brasseur <[email protected]>
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)
