Skip to content

Commit 5cf5cd5

Browse files
committed
Replace seq-doseq with mapcar... IDK
1 parent 6f9ab8f commit 5cf5cd5

File tree

1 file changed

+6
-4
lines changed

1 file changed

+6
-4
lines changed

parseclj-alist.el

Lines changed: 6 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -82,10 +82,12 @@ For example: (parseclj-hash-table :foo 123 :bar 456)"
8282
;; Emacs 27: (map-merge 'alist l1 l2)
8383
(let ((keys (delete-dups (append (mapcar #'car l1) (mapcar #'car l2))))
8484
(res '()))
85-
(seq-doseq (key keys)
86-
(push (or (assoc key l2)
87-
(assoc key l1))
88-
res))
85+
(mapcar
86+
(lambda (key)
87+
(push (or (assoc key l2)
88+
(assoc key l1))
89+
res))
90+
keys)
8991
(nreverse res)))
9092

9193
(provide 'parseclj-alist)

0 commit comments

Comments
 (0)