[elpa] externals/dash 65a3736 349/439: [-let] Fix improper list non-symbol last argument handler

[Phillip Lord]

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

    [-let] Fix improper list non-symbol last argument handler
---
 dash.el         |    2 +-
 dev/examples.el |    2 ++
 2 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/dash.el b/dash.el
index f83ffaa..0b3474f 100644
--- a/dash.el
+++ b/dash.el
@@ -1251,7 +1251,7 @@ SOURCE is a proper or improper list."
       nil)
      ;; Handle improper lists.  Last matching place, no need for shift
      (t
-      (list (list match-form (dash--match-cons-get-cdr skip-cdr source)))))))
+      (dash--match match-form (dash--match-cons-get-cdr skip-cdr source))))))
 
 (defun dash--vector-tail (seq start)
   "Return the tail of SEQ starting at START."
diff --git a/dev/examples.el b/dev/examples.el
index 99cc5dc..d29c707 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -741,6 +741,8 @@ new list."
             (error "previous call should fail.")))
       (args-out-of-range t)) => t
     (-let [(a . (b . c)) (cons 1 (cons 2 3))] (list a b c)) => '(1 2 3)
+    (-let [(_ _ . [a b]) (cons 1 (cons 2 (vector 3 4)))] (list a b)) => '(3 4)
+    (-let [(_ _ . (a b)) (cons 1 (cons 2 (list 3 4)))] (list a b)) => '(3 4)
     ;; final cdr optimization
     (-let [(((a))) (list (list (list 1 2) 3) 4)] a) => 1
     (-let [(((a b) c) d) (list (list (list 1 2) 3) 4)] (list a b c d)) => '(1 
2 3 4)