diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-09-11 11:50:12 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-09-11 11:50:12 +0000 |
| commit | e8f5516af2327f53db12d94e98b3b0efa7568251 (patch) | |
| tree | 8455a7a0c034e38e8bcf381173f6dabe019c9a4b /src | |
| parent | d7409821765ae40fd2995ff11fe5bcd99ce0d900 (diff) | |
fixed zip/up
Diffstat (limited to 'src')
| -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))) |