[elpa] externals/dash b7c2f9a 381/439: Work around byte compiler in -if-let*

[Phillip Lord]

branch: externals/dash
commit b7c2f9a154af2c59489d09abaace962e9ab23561
Author: Fredrik Bergroth <address@hidden>
Commit: Fredrik Bergroth <address@hidden>

    Work around byte compiler in -if-let*
    
    Closes #106
---
 dash.el |    9 +++++----
 1 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/dash.el b/dash.el
index 53fadeb..fd2b779 100644
--- a/dash.el
+++ b/dash.el
@@ -1500,11 +1500,12 @@ Note: binding is done according to `-let*'."
   (declare (debug ((&rest (sexp form)) form body))
            (indent 2))
   (->> vars-vals
-    (-mapcat (-lambda ((pat src)) (dash--match pat src)))
-    (-reduce-r-from
-     (-lambda ((var val) memo)
+    (--mapcat (dash--match (car it) (cadr it)))
+    (--reduce-r-from
+     (let ((var (car it))
+           (val (cadr it)))
        `(let ((,var ,val))
-          (if ,var ,memo ,@else)))
+          (if ,var ,acc ,@else)))
      then)))
 
 (defmacro -if-let (var-val then &rest else)