[elpa] externals/dash 4d67b25 345/439: [-let] Do not reinvent `pop'

[Phillip Lord]

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

    [-let] Do not reinvent `pop'
---
 dash.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/dash.el b/dash.el
index a66d3cb..7898dc9 100644
--- a/dash.el
+++ b/dash.el
@@ -1200,14 +1200,14 @@ SOURCE is a proper or improper list."
      ((symbolp (car match-form))
       (cond
        ((cdr match-form)
-        (cons (list (car match-form) `(prog1 (car ,s) (!cdr ,s)))
+        (cons (list (car match-form) `(pop ,s))
               (dash--match-cons-1 (cdr match-form) s)))
        (t
         (list (list (car match-form) `(car ,s))))))
      (t
       (cond
        ((cdr match-form)
-        (-concat (dash--match (car match-form) `(prog1 (car ,s) (!cdr ,s)))
+        (-concat (dash--match (car match-form) `(pop ,s))
                  (dash--match-cons-1 (cdr match-form) s)))
        (t
         (dash--match (car match-form) `(car ,s)))))))