branch: externals/dash
commit 4d67b2530e19fa2022be4c30d4a24f059e298f73
Author: Matus Goljer <[email protected]>
Commit: Matus Goljer <[email protected]>
[-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)))))))
