diff options
| -rw-r--r-- | src/clj/clojure/zip/zip.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/zip/zip.clj b/src/clj/clojure/zip/zip.clj index 394990c1..c8412f5a 100644 --- a/src/clj/clojure/zip/zip.clj +++ b/src/clj/clojure/zip/zip.clj @@ -101,7 +101,7 @@ the top" [loc] (let [[node {l :l, ppath :ppath, pnodes :pnodes r :r, changed? :changed?, :as path}] loc] - (when path + (when pnodes (let [pnode (peek pnodes)] (with-meta (if changed? [(make-node loc pnode (concat l (cons node r))) |