[elpa] externals/dash bd85b7c 302/426: Make -zip support infinite (circular) lists

[Phillip Lord]

branch: externals/dash
commit bd85b7cd8a22c6abf3e03cbdd8107cd4e9b0b40a
Author: Steve Lamb <address@hidden>
Commit: Steve Lamb <address@hidden>

    Make -zip support infinite (circular) lists
---
 dash.el |   12 ++++--------
 1 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/dash.el b/dash.el
index 15d1d24..ef09873 100644
--- a/dash.el
+++ b/dash.el
@@ -803,14 +803,10 @@ groupings are equal to the length of the shortest input 
list.
 
 If two lists are provided as arguments, return the groupings as a list
 of cons cells. Otherwise, return the groupings as a list of lists. "
-  (let* ((n (-min (-map 'length lists)))
-         (level-lists (-map (-partial '-take n) lists))
-         results)
-    (while (> n 0)
-      (let ((split-lists (-map (-partial '-split-at 1) level-lists)))
-        (setq results (cons (-map 'caar split-lists) results))
-        (setq level-lists (-map 'cadr split-lists))
-        (setq n (1- n))))
+  (let (results)
+    (while (-none? 'null lists)
+      (setq results (cons (mapcar 'car lists) results))
+      (setq lists (mapcar 'cdr lists)))
     (setq results (nreverse results))
     (if (= (length lists) 2)
         ; to support backward compatability, return