From 9e1a667afc1eacecf79f9bd67c0282559405e801 Mon Sep 17 00:00:00 2001
From: Matus Goljer <dota.keys@gmail.com>
Date: Thu, 6 Nov 2014 11:03:36 +0100
Subject: [PATCH] Do not map nodes on conses (be consistent with tree map)

---
 dash.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/dash.el b/dash.el
index 0c04622..44eec0d 100644
--- a/dash.el
+++ b/dash.el
@@ -1906,7 +1906,8 @@ returns non-nil, apply FUN to this node and do not descend
 further."
   (if (funcall pred tree)
       (funcall fun tree)
-    (if (listp tree)
+    (if (and (listp tree)
+             (not (-cons-pair? tree)))
         (-map (lambda (x) (-tree-map-nodes pred fun x)) tree)
       tree)))