diff --git a/dash.el b/dash.el index 98c0df6..d398e8b 100644 --- a/dash.el +++ b/dash.el @@ -305,6 +305,11 @@ See also: `-flatten-n'" (-mapcat '-flatten l) (list l))) +(defmacro --iterate (form init n) + "Anaphoric version of `-iterate'." + (declare (debug (form form form))) + `(-iterate (lambda (it) ,form) ,init ,n)) + (defun -flatten-n (num list) "Flatten NUM levels of a nested LIST. @@ -1743,11 +1748,6 @@ N is the length of the returned list." (push (funcall fun (car r)) r)) (nreverse r)))) -(defmacro --iterate (form init n) - "Anaphoric version of `-iterate'." - (declare (debug (form form form))) - `(-iterate (lambda (it) ,form) ,init ,n)) - (defun -fix (fn list) "Compute the (least) fixpoint of FN with initial input LIST.