branch: externals/taxy
commit 3b253a695bec564228efeb054cd4c7145d3178eb
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Tidy: (taxy-fill) Argument order in labeled function
---
taxy.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/taxy.el b/taxy.el
index 7f181f6..44fb4e3 100644
--- a/taxy.el
+++ b/taxy.el
@@ -48,21 +48,21 @@
(defun taxy-fill (objects taxy)
"Fill TAXY with OBJECTS according to its definition."
- (cl-labels ((apply-object (taxy object)
+ (cl-labels ((apply-object (object taxy)
(cl-loop for taxy in (taxy-taxys taxy)
when (funcall (taxy-predicate taxy)
object)
do (progn
(if (taxy-take taxy)
(funcall (taxy-take taxy) object
taxy)
(if (taxy-taxys taxy)
- (or (apply-object taxy object)
+ (or (apply-object object taxy)
(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)
- (apply-object taxy object))))
+ (apply-object object taxy))))
(defun taxy-plain (taxy)
"Return a list of the human-readable parts of TAXY."
