[elpa] externals/taxy 524b151 19/39: Tidy: (taxy-fill)

[ELPA Syncer]

branch: externals/taxy
commit 524b151addde581ea49662fa1ba3f894e2f354d2
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Tidy: (taxy-fill)
---
 taxy.el | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/taxy.el b/taxy.el
index adbf69e..935b404 100644
--- a/taxy.el
+++ b/taxy.el
@@ -51,17 +51,14 @@
   (cl-labels ((apply-object (taxy object)
                             (cl-loop for taxy in (taxy-taxys taxy)
                                      when (funcall (taxy-predicate taxy) 
object)
-                                     do (setf object (if (taxy-take taxy)
-                                                         (progn
-                                                           (funcall (taxy-take 
taxy) object taxy)
-                                                           (funcall (taxy-then 
taxy) object))
-                                                       (if (taxy-taxys taxy)
-                                                           (progn
-                                                             (or (apply-object 
taxy object)
-                                                                 (push object 
(taxy-objects taxy)))
-                                                             (funcall 
(taxy-then taxy) object))
-                                                         (push object 
(taxy-objects taxy))
-                                                         (funcall (taxy-then 
taxy) object))))
+                                     do (progn
+                                          (if (taxy-take taxy)
+                                              (funcall (taxy-take taxy) object 
taxy)
+                                            (if (taxy-taxys taxy)
+                                                (or (apply-object taxy object)
+                                                    (push object (taxy-objects 
taxy)))
+                                              (push object (taxy-objects 
taxy))))
+                                          (setf object (funcall (taxy-then 
taxy) object)))
                                      unless object return t
                                      finally return nil)))
     (dolist (object objects taxy)