From 0d3b308c071b159e4c4eabd7ca7c53152618abf1 Mon Sep 17 00:00:00 2001 From: sostler Date: Wed, 26 May 2010 16:44:34 -0400 Subject: Fixed api for scheduledagent update --- src/scheduled_agent.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/scheduled_agent.clj') 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 -- cgit v1.2.3-70-g09d2