Prune useless progn form

1 files changed, 5 insertions, 8 deletions

diff --git a/sx.el b/sx.el
index 829570f..955dc68 100644
--- a/sx.el
+++ b/sx.el
@@ -264,14 +264,11 @@ whenever BODY evaluates to nil."
 COMPARE-FUNC is a function that takes the return value of
 GET-FUNC and performs the actual comparison."
   (declare (indent 1) (doc-string 2))
-  `(progn
-     ;; In using `defalias', the macro supports both function
-     ;; symbols and lambda expressions.
-     (defun ,name (a b)
-       ,doc
-       (funcall ,compare-func
-                (funcall ,get-func a)
-                (funcall ,get-func b)))))
+  `(defun ,name (a b)
+     ,doc
+     (funcall ,compare-func
+              (funcall ,get-func a)
+              (funcall ,get-func b))))
 
 
 ;;; Printing request data