Permalink
Browse files

purge! fix

  • Loading branch information...
1 parent 9d10119 commit ecd26b7609b067b5ec6242c9efb3a83bd99ba3ad unknown committed Mar 8, 2011
Showing with 5 additions and 4 deletions.
  1. +0 −1 .gitignore
  2. +5 −3 src/borneo/core.clj
View
@@ -3,4 +3,3 @@ pom.xml
lib
classes
autodoc
-neo-db
View
@@ -340,9 +340,11 @@
(doseq [r (rels node)]
(delete! r))))
(with-tx
- ;; now delete nodes
- (doseq [node (all-nodes)]
- (delete! node))))
+ ;; now delete nodes, except reference node
+ (let [reference-node-id (get-id (root))]
+ (doseq [node (all-nodes)]
+ (when-not (= reference-node-id (get-id node))
+ (delete! node))))))
;;; Property Containers

0 comments on commit ecd26b7

Please sign in to comment.