branch: master
commit b8bade4e4d284a545cab25660a9b04a2dfa9b402
Author: Nicolas Petton <nico...@petton.fr>
Commit: Nicolas Petton <nico...@petton.fr>
Update seq.el to version 1.1.1
* package/seq/seq.el: Update to version 1.1.1
* packages/seq/tests/seq-tests.el: Update to version 1.1.1
---
packages/seq/seq.el | 23 +++++++++++------------
packages/seq/tests/seq-tests.el | 6 +++---
2 files changed, 14 insertions(+), 15 deletions(-)
diff --git a/packages/seq/seq.el b/packages/seq/seq.el
index ca36515..bc0344d 100644
--- a/packages/seq/seq.el
+++ b/packages/seq/seq.el
@@ -4,7 +4,7 @@
;; Author: Nicolas Petton <nico...@petton.fr>
;; Keywords: sequences
-;; Version: 1.1
+;; Version: 1.1.1
;; Package: seq
;; Maintainer: emacs-de...@gnu.org
@@ -246,17 +246,16 @@ negative integer or 0, nil is returned."
"Apply FUNCTION to each element of SEQ.
Separate the elements of SEQ into an alist using the results as
keys. Keys are compared using `equal'."
- (nreverse
- (seq-reduce
- (lambda (acc elt)
- (let* ((key (funcall function elt))
- (cell (assoc key acc)))
- (if cell
- (setcdr cell (push elt (cdr cell)))
- (push (list key elt) acc))
- acc))
- seq
- nil)))
+ (seq-reduce
+ (lambda (acc elt)
+ (let* ((key (funcall function elt))
+ (cell (assoc key acc)))
+ (if cell
+ (setcdr cell (push elt (cdr cell)))
+ (push (list key elt) acc))
+ acc))
+ (seq-reverse seq)
+ nil))
(defun seq--drop-list (list n)
"Return a list from LIST without its first N elements.
diff --git a/packages/seq/tests/seq-tests.el b/packages/seq/tests/seq-tests.el
index ecbc004..b92a15c 100644
--- a/packages/seq/tests/seq-tests.el
+++ b/packages/seq/tests/seq-tests.el
@@ -216,10 +216,10 @@ Evaluate BODY for each created sequence.
(should (equal (seq-partition '(1 2 3) -1) '())))
(ert-deftest test-seq-group-by ()
- (should (equal (seq-group-by #'test-sequences-oddp [1 2 3 4])
- '((t 3 1) (nil 4 2))))
+ (should (equal (seq-group-by #'test-sequences-oddp '(1 2 3 4))
+ '((t 1 3) (nil 2 4))))
(should (equal (seq-group-by #'car '((a 1) (b 3) (c 4) (a 2)))
- '((a (a 2) (a 1)) (b (b 3)) (c (c 4))))))
+ '((b (b 3)) (c (c 4)) (a (a 1) (a 2))))))
(provide 'seq-tests)
;;; seq-tests.el ends here
