[elpa] externals/dash 6f0bb7d 348/439: [-let] Fix dynamic scoping issue

[Phillip Lord]

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

    [-let] Fix dynamic scoping issue
---
 dash.el |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/dash.el b/dash.el
index bd13d0c..f83ffaa 100644
--- a/dash.el
+++ b/dash.el
@@ -1231,27 +1231,27 @@ SOURCE is a proper or improper list."
          ((cdr match-form)
           (cond
            ((eq (aref (symbol-name (car match-form)) 0) ?_)
-            (dash--match-cons-1 (cdr match-form) s
+            (dash--match-cons-1 (cdr match-form) source
                                 (plist-put props :skip-cdr (1+ skip-cdr))))
            (t
-            (cons (list (car match-form) (dash--match-cons-skip-cdr skip-cdr 
s))
-                  (dash--match-cons-1 (cdr match-form) s)))))
+            (cons (list (car match-form) (dash--match-cons-skip-cdr skip-cdr 
source))
+                  (dash--match-cons-1 (cdr match-form) source)))))
          ;; Last matching place, no need for shift
          (t
-          (list (list (car match-form) (dash--match-cons-get-car skip-cdr 
s))))))
+          (list (list (car match-form) (dash--match-cons-get-car skip-cdr 
source))))))
        (t
         (cond
          ((cdr match-form)
-          (-concat (dash--match (car match-form) (dash--match-cons-skip-cdr 
skip-cdr s))
-                   (dash--match-cons-1 (cdr match-form) s)))
+          (-concat (dash--match (car match-form) (dash--match-cons-skip-cdr 
skip-cdr source))
+                   (dash--match-cons-1 (cdr match-form) source)))
          ;; Last matching place, no need for shift
          (t
-          (dash--match (car match-form) (dash--match-cons-get-car skip-cdr 
s)))))))
+          (dash--match (car match-form) (dash--match-cons-get-car skip-cdr 
source)))))))
      ((eq match-form nil)
       nil)
      ;; Handle improper lists.  Last matching place, no need for shift
      (t
-      (list (list match-form (dash--match-cons-get-cdr skip-cdr s)))))))
+      (list (list match-form (dash--match-cons-get-cdr skip-cdr source)))))))
 
 (defun dash--vector-tail (seq start)
   "Return the tail of SEQ starting at START."