[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dash b661f96 269/426: Merge pull request #62 from Fuco1
From: |
Phillip Lord |
Subject: |
[elpa] externals/dash b661f96 269/426: Merge pull request #62 from Fuco1/consfix |
Date: |
Tue, 04 Aug 2015 19:38:12 +0000 |
branch: externals/dash
commit b661f96015142bc079144d90e87385dd5761b4b2
Merge: a84a434 f86d235
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>
Merge pull request #62 from Fuco1/consfix
Fix -cons*
---
dash.el | 12 +-----------
dev/examples.el | 4 +++-
2 files changed, 4 insertions(+), 12 deletions(-)
diff --git a/dash.el b/dash.el
index 6999e64..2c77a11 100644
--- a/dash.el
+++ b/dash.el
@@ -280,17 +280,7 @@ Thus function FN should return a list."
The last 2 members of ARGS are used as the final cons of the
result so if the final member of ARGS is not a list the result is
a dotted list."
- (let (res)
- (--each
- args
- (cond
- ((not res)
- (setq res it))
- ((consp res)
- (setcdr res (cons (cdr res) it)))
- (t
- (setq res (cons res it)))))
- res))
+ (-reduce-r 'cons args))
(defun -snoc (list elem &rest elements)
"Append ELEM to the end of the list.
diff --git a/dev/examples.el b/dev/examples.el
index db71ca9..792883a 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -344,7 +344,9 @@
(defexamples -cons*
(-cons* 1 2) => '(1 . 2)
(-cons* 1 2 3) => '(1 2 . 3)
- (-cons* 1) => 1)
+ (-cons* 1) => 1
+ (-cons* 1 2 3 4) => '(1 2 3 . 4)
+ (apply '-cons* (number-sequence 1 10)) => '(1 2 3 4 5 6 7 8 9 . 10))
(defexamples -snoc
(-snoc '(1 2 3) 4) => '(1 2 3 4)
- [elpa] externals/dash 9de1435 248/426: Merge pull request #53 from Fuco1/tree-stuff, (continued)
- [elpa] externals/dash 9de1435 248/426: Merge pull request #53 from Fuco1/tree-stuff, Phillip Lord, 2015/08/04
- [elpa] externals/dash 7357283 258/426: Merge pull request #57 from Silex/master, Phillip Lord, 2015/08/04
- [elpa] externals/dash da9888f 266/426: Release 2.4.1, Phillip Lord, 2015/08/04
- [elpa] externals/dash 47af4d6 265/426: Merge pull request #61 from Fuco1/master, Phillip Lord, 2015/08/04
- [elpa] externals/dash c788474 264/426: Fix bug with nested lists in `-remove-at-indices`, Phillip Lord, 2015/08/04
- [elpa] externals/dash 396d6ac 271/426: Declare macro before using it., Phillip Lord, 2015/08/04
- [elpa] externals/dash 386ec0a 273/426: Add -same-items? function., Phillip Lord, 2015/08/04
- [elpa] externals/dash e7bc8fe 250/426: Make dash-specific font lock optional, Phillip Lord, 2015/08/04
- [elpa] externals/dash a84a434 267/426: 2.4.1 in readme-template too, Phillip Lord, 2015/08/04
- [elpa] externals/dash 4818368 272/426: Release 2.4.3, Phillip Lord, 2015/08/04
- [elpa] externals/dash b661f96 269/426: Merge pull request #62 from Fuco1/consfix,
Phillip Lord <=
- [elpa] externals/dash 25be31a 270/426: Release 2.4.2, Phillip Lord, 2015/08/04
- [elpa] externals/dash f86d235 268/426: Fix -cons*, Phillip Lord, 2015/08/04
- [elpa] externals/dash 3eb91fe 280/426: Add `-find-last-index`, Phillip Lord, 2015/08/04
- [elpa] externals/dash ec9afcb 255/426: Merge pull request #54 from Fuco1/index/modify, Phillip Lord, 2015/08/04
- [elpa] externals/dash 930b390 278/426: Add -list function., Phillip Lord, 2015/08/04
- [elpa] externals/dash adaeff7 274/426: Merge pull request #65 from rejeep/same-items-predicate, Phillip Lord, 2015/08/04
- [elpa] externals/dash e6cae0b 279/426: Merge pull request #68 from rejeep/list-function, Phillip Lord, 2015/08/04
- [elpa] externals/dash f18a520 326/426: Release 2.7.0, Phillip Lord, 2015/08/04
- [elpa] externals/dash 7eb8307 283/426: Merge pull request #71 from Fuco1/find-last-index, Phillip Lord, 2015/08/04
- [elpa] externals/dash 7f0fadc 317/426: Add -prodfn, Phillip Lord, 2015/08/04