clojure.zip/up

function

since v0.0-927

clojure.zip/up

Edit

---

Source docstring:

Returns the loc of the parent of the node at this loc, or nil if at
the top

(defn up
  [loc]
    (let [[node {l :l, ppath :ppath, pnodes :pnodes r :r, changed? :changed?, :as path}] loc]
      (when pnodes
        (let [pnode (peek pnodes)]
          (with-meta (if changed?
                       [(make-node loc pnode (concat l (cons node r))) 
                        (and ppath (assoc ppath :changed? true))]
                       [pnode ppath])
                     (meta loc))))))

---