From 59352927f0edc1d712f57bce5f5828d07579ac3c Mon Sep 17 00:00:00 2001
From: sostler <sbostler@gmail.com>
Date: Wed, 6 Jan 2010 03:06:53 -0500
Subject: Fixed flush! bug

---
 src/site.clj | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/site.clj b/src/site.clj
index 5be70c7..31367a7 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -36,9 +36,10 @@
 (defn flush! [x]
   (when run-flusher
     (send-off *agent* #'flush!))
+  (prn "hi")
   (doseq [[rid room] @rooms]
     (dosync
-     (let [users ((ensure room) :users)
+     (let [users (room :users)
            now (System/currentTimeMillis)
            alive? (fn [[n u]] (> (u :last-seen) (- now user-timeout-ms)))]
        (ref-set users
-- 
cgit v1.2.3-70-g09d2