Returns a lazy sequence of all immediate children of location loc,
left-to-right, marked so that a following tag= predicate will auto-descend.
(defn children-auto
"Returns a lazy sequence of all immediate children of location loc,
left-to-right, marked so that a following tag= predicate will auto-descend."
^{:private true}
[loc]
(when (zip/branch? loc)
(map #(auto true %) (right-locs (zip/down loc)))))
Comments top
No comments for children-auto. Log in to add a comment.