[elpa] externals/dash d7174ed 160/426: Handle cons-cells properly in -flatten

[Phillip Lord]

branch: externals/dash
commit d7174ed63a874112d96100d4d0a4ac41dfeff5c1
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>

    Handle cons-cells properly in -flatten
    
    Fixes #21
---
 dash.el         |    2 +-
 dev/examples.el |    3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/dash.el b/dash.el
index 7f4c281..6ca2fea 100644
--- a/dash.el
+++ b/dash.el
@@ -201,7 +201,7 @@ through the REP function."
 
 (defun -flatten (l)
   "Takes a nested list L and returns its contents as a single, flat list."
-  (if (listp l)
+  (if (and (listp l) (listp (cdr l)))
       (-mapcat '-flatten l)
     (list l)))
 
diff --git a/dev/examples.el b/dev/examples.el
index 40a1ed3..caa7f5c 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -59,7 +59,8 @@
 
 (defexamples -flatten
   (-flatten '((1))) => '(1)
-  (-flatten '((1 (2 3) (((4 (5))))))) => '(1 2 3 4 5))
+  (-flatten '((1 (2 3) (((4 (5))))))) => '(1 2 3 4 5)
+  (-flatten '(1 2 (3 . 4))) => '(1 2 (3 . 4)))
 
 (defexamples -concat
   (-concat '(1)) => '(1)