Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn -initialize [this params]
- (dosync
- (alter (.state this) assoc :starting-node false)
- (alter (.state this) assoc :m-value (int *m*))
- (alter (.state this) assoc :logger
- (Logger/getLogger (->> this .getAddress .getName))))
- (condp = (alength params)
- 0 true
- 1 (dosync
- (alter (.state this) assoc :starting-node (boolean (aget params 0)))
- true)
- 2 (dosync
- (alter (.state this) assoc :starting-node (boolean (aget params 0)))
- (alter (.state this) assoc :m-value (int (aget params 1)))
- true)))
Add Comment
Please, Sign In to add comment