From e3f32fc0ba82dd15a8f89f7c4965c68b39123e20 Mon Sep 17 00:00:00 2001 From: sostler Date: Wed, 19 May 2010 14:58:08 -0400 Subject: Basic rooms functionality --- src/scheduled_agent.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/scheduled_agent.clj') diff --git a/src/scheduled_agent.clj b/src/scheduled_agent.clj index b42bb57..b1d7fbf 100644 --- a/src/scheduled_agent.clj +++ b/src/scheduled_agent.clj @@ -12,8 +12,8 @@ data (ref init) pfunc (runnable-proxy (fn [] (try - (dosync - (ref-set data (func (ensure data)))) + (let [val (func)] + (dosync (ref-set data val))) (catch Exception e (print-stack-trace e 5))))) future (.scheduleWithFixedDelay pool pfunc 0 period TimeUnit/SECONDS)] -- cgit v1.2.3-70-g09d2