[elpa] externals/dash a743ae3 153/316: Merge pull request #313 from SwiftLawnGnome/master

[ELPA Syncer]

branch: externals/dash
commit a743ae3da1d5869434c6f262bbe45ef30d87cb9c
Merge: f3e9cd2 ce1294b
Author: Matus Goljer <matus.goljer@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #313 from SwiftLawnGnome/master
    
    Make -inits not destroy its argument
---
 dash.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/dash.el b/dash.el
index c86c116..22ebbd5 100644
--- a/dash.el
+++ b/dash.el
@@ -2341,7 +2341,11 @@ or with `-compare-fn' if that's non-nil."
 
 (defun -inits (list)
   "Return all prefixes of LIST."
-  (nreverse (-map 'reverse (-tails (nreverse list)))))
+  (let ((res (list list)))
+    (setq list (reverse list))
+    (while list
+      (push (reverse (!cdr list)) res))
+    res))
 
 (defun -tails (list)
   "Return all suffixes of LIST"