Merge branch 'master' into real-scores

1 files changed, 1 insertions, 1 deletions

diff --git a/sx.el b/sx.el
index aacd5cf..53aae84 100644
--- a/sx.el
+++ b/sx.el
@@ -111,7 +111,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