[elpa] externals/taxy a94ab1c 05/39: Tidy

[ELPA Syncer]

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

    Tidy
---
 taxy.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/taxy.el b/taxy.el
index 0d956dc..4f538c5 100644
--- a/taxy.el
+++ b/taxy.el
@@ -48,11 +48,9 @@
 
 (defun taxy-fill (taxy objects)
   (cl-labels ((apply-object (taxy object)
-                            (cl-loop with taken
-                                     for taxy in (taxy-taxys taxy)
+                            (cl-loop for taxy in (taxy-taxys taxy)
                                      when (funcall (taxy-predicate taxy) 
object)
-                                     do (setf taken t
-                                              object (if (taxy-take taxy)
+                                     do (setf object (if (taxy-take taxy)
                                                          (progn
                                                            (funcall (taxy-take 
taxy) object taxy)
                                                            (funcall (taxy-then 
taxy) object))