diff options
| author | sostler <sbostler@gmail.com> | 2010-05-26 16:44:34 -0400 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-05-26 16:44:34 -0400 |
| commit | 0d3b308c071b159e4c4eabd7ca7c53152618abf1 (patch) | |
| tree | 683571ca68f146dc8e60fe6e3bb09255c408641e /src/scheduled_agent.clj | |
| parent | 0ac15a39f48ee8b0b7453e1dc5aed382f8e518f2 (diff) | |
Fixed api for scheduledagent update
Diffstat (limited to 'src/scheduled_agent.clj')
| -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 |