From 36b7f49f1664b6d0e241d87af49c86eadcb2ddf9 Mon Sep 17 00:00:00 2001
From: Matus Goljer <dota.keys@gmail.com>
Date: Sun, 3 May 2015 15:22:53 +0200
Subject: [PATCH] [-let] Reuse the ignore-place predicate

---
 dash.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/dash.el b/dash.el
index d177831..b3c1e02 100644
--- a/dash.el
+++ b/dash.el
@@ -1257,8 +1257,7 @@ sorts it in descending order."
         (n 0)
         (m match-form))
     (while (and (consp m)
-                (symbolp (car m))
-                (eq (aref (symbol-name (car m)) 0) ?_))
+                (dash--match-ignore-place-p (car m)))
       (setq n (1+ n)) (!cdr m))
     (cond
      ;; handle improper lists