Simplify -interleave with -none?

14 years ago · 38cc9e7af8
parent 4b5e24ba53
commit 38cc9e7af8
1 changed files with 1 additions and 1 deletions
--- a/dash.el
+++ b/dash.el
@ -278,7 +278,7 @@ Alias: `-every?'"
 (defun -interleave (&rest lists)
  "Returns a new list of the first item in each list, then the second etc."
  (let (result)
-    (while (--all? (not (null it)) lists)
+    (while (-none? 'null lists)
      (--each lists (setq result (cons (car it) result)))
      (setq lists (-map 'cdr lists)))
    (nreverse result)))