(replace loc node)
Replaces the node at this loc, without moving
(defn replace [loc node] (let [[_ path] loc] (with-meta [node (assoc path :changed? true)] (meta loc))))