avoid null pointer exception

lincpa · Sep 15, 2012 · 0fe152a · 0fe152a
1 parent 7c6a7a4
commit 0fe152a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/clooj/project.clj b/src/clooj/project.clj
@@ -92,7 +92,7 @@
   [tree path]
   (let [root-node (.. tree getModel getRoot)]
     (loop [node root-node]
-      (when-not (.isLeaf node)
+      (when (and node (not (.isLeaf node)))
         (when-let [children (node-children node)]
                    (let [closer-node (first
                             (filter #(file-ancestor?