[elpa] externals/dash f6617d1 1/3: [-let] Remove &keys special case in -let.

[Phillip Lord]

branch: externals/dash
commit f6617d132a99f0815b8faa7190b20b64490be001
Author: Matus Goljer <address@hidden>
Commit: Matus Goljer <address@hidden>

    [-let] Remove &keys special case in -let.
    
    Before this was internally translated to &plist, but it really is just
    "semantic" alias to make it look more like &keys cl-defun style.
---
 dash.el |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/dash.el b/dash.el
index e0ba65d..cae487e 100644
--- a/dash.el
+++ b/dash.el
@@ -1459,7 +1459,7 @@ Valid values are &plist, &alist and &hash."
                    (let* ((k (car kv))
                           (v (cadr kv))
                           (getter (cond
-                                   ((eq type '&plist)
+                                   ((or (eq type '&plist) (eq type '&keys))
                                     `(plist-get ,source ,k))
                                    ((eq type '&alist)
                                     `(cdr (assoc ,k ,source)))
@@ -1497,10 +1497,8 @@ Key-value stores are disambiguated by placing a token 
&plist,
       (let ((s (car match-form)))
         (cons (list s source)
               (dash--match (cddr match-form) s))))
-     ((memq (car match-form) '(&plist &alist &hash))
+     ((memq (car match-form) '(&keys &plist &alist &hash))
       (dash--match-kv match-form source))
-     ((eq (car match-form) '&keys)
-      (dash--match-kv (cons '&plist (cdr match-form)) source))
      (t (dash--match-cons match-form source))))
    ((vectorp match-form)
     ;; We support the &as binding in vectors too