From 38cc9e7af830a29a84252a500cc73234d633087d Mon Sep 17 00:00:00 2001 From: Magnar Sveen Date: Mon, 22 Oct 2012 16:26:03 +0200 Subject: [PATCH] Simplify -interleave with -none? --- dash.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dash.el b/dash.el index 1d6a8ef..c946d38 100644 --- 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)))