From fdd4e7064fa3de8f62d81bceb99901d5765c4e5a Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Sat, 17 Jan 2015 10:32:05 -0500
Subject: Prune useless progn form

---
 sx.el | 13 +++++--------
 1 file 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
-- 
cgit v1.2.3