Merge pull request #54 from vermiculus/fix-assoc-let

Quick-fix assoc-let

1 files changed, 1 insertions, 1 deletions

diff --git a/sx.el b/sx.el
index 7ed56d3..796a5d6 100644
--- a/sx.el
+++ b/sx.el
@@ -106,7 +106,7 @@ is equivalent to
            (debug t))
   (let ((symbol-alist (sx--deep-dot-search body)))
     `(let ,(mapcar (lambda (x) `(,(car x) (cdr (assoc ',(cdr x) ,alist))))
-                   symbol-alist)
+                   (delete-dups symbol-alist))
        ,@body)))
 
 (defcustom sx-init-hook nil