Fix compile warning

11 years ago · c134705f2a
parent 38ef86e0bd
commit c134705f2a
1 changed files with 2 additions and 2 deletions
--- a/dash.el
+++ b/dash.el
@ -1126,8 +1126,8 @@ sorts it in descending order."
    `(pop ,source))
   (t
    `(progn
-       (setq ,s (nthcdr ,skip-cdr ,s))
-       (pop ,s)))))
+       (setq ,source (nthcdr ,skip-cdr ,source))
+       (pop ,source)))))

 (defun dash--match-cons-get-car (skip-cdr source)
  "Helper function generating idiomatic code to get nth car."