From e8f5516af2327f53db12d94e98b3b0efa7568251 Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Thu, 11 Sep 2008 11:50:12 +0000
Subject: fixed zip/up

---
 src/clj/clojure/zip/zip.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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))) 
-- 
cgit v1.2.3-18-g5258