diff options
| -rw-r--r-- | src/scheduled_agent.clj | 4 |
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 |
