function | since v0.0-927 | ![]() | Edit |
(right loc)
Returns the loc of the right sibling of the node at this loc, or nil
(defn right
[loc]
(let [[node {l :l [r & rnext :as rs] :r :as path}] loc]
(when (and path rs)
(with-meta [r (assoc path :l (conj l node) :r rnext)] (meta loc)))))