summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/scheduled_agent.clj4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/scheduled_agent.clj b/src/scheduled_agent.clj
index b1d7fbf..2d1588f 100644
--- a/src/scheduled_agent.clj
+++ b/src/scheduled_agent.clj
@@ -34,4 +34,6 @@
(defn update! [{func :func data :data}]
"Synchronously update contents of agent."
- (dosync (ref-set data (func (ensure data))))) \ No newline at end of file
+ (let [val (func)]
+ (dosync
+ (ref-set data val)))) \ No newline at end of file