Permalink
Browse files

Lifetime tracking: -ROOT-LIFETIME- isn't used.

  • Loading branch information...
1 parent b6339fe commit 94806f5e3950e6f66263b0210832c6b1dfe0db13 @lnostdal committed Sep 6, 2012
Showing with 1 addition and 6 deletions.
  1. +1 −6 src/symbolicweb/lifetime.clj
@@ -105,7 +105,7 @@ If LIFETIME is active it will be deactivated with all its children.")
(defn mk-Lifetime []
(Lifetime. (ref false) ;; ACTIVE?
(ref false) ;; PARENT
- (ref #{}) ;; CHILDREN
+ (ref #{}) ;; CHILDREN
(ref []) ;; ON-LIFETIME-ACTIVATION-FNS
(ref []))) ;; ON-LIFETIME-DEACTIVATION-FNS
@@ -118,11 +118,6 @@ If LIFETIME is active it will be deactivated with all its children.")
-(def -root-lifetime-
- (mk-Lifetime))
-
-
-
#_(try
(dosync
(let [root (mk-LifetimeRoot)

0 comments on commit 94806f5

Please sign in to comment.