1 files changed, 8 insertions, 1 deletions
diff --git a/sx.el b/sx.el
index 058230c..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
@@ -125,6 +125,13 @@ Run after `sx-init--internal-hook'.")
 This is used internally to set initial values for variables such
 as filters.")
 
+(defun sx--< (property x y &optional pred)
+  "Non-nil if PROPERTY attribute of question X is less than that of Y.
+With optional argument predicate, use it instead of `<'."
+  (funcall (or pred #'<)
+           (cdr (assoc property x))
+           (cdr (assoc property y))))
+
 (defmacro sx-init-variable (variable value &optional setter)
   "Set VARIABLE to VALUE using SETTER.
 SETTER should be a function of two arguments.  If SETTER is nil,