Fix get-user-ranking to handle null user list

1 files changed, 6 insertions, 6 deletions

diff --git a/src/site.clj b/src/site.clj
index 0a22a88..ab7a17f 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -404,11 +404,11 @@ FROM   users u
     {}))
 
 (defn get-user-ranking [offset num]
-  (let [ranking  (:list (poll *user-scores*))
-        count    (count ranking)]
-    (subvec ranking
-            (min count (* offset num))
-            (min count (* (inc offset) num)))))
+  (if-let [ranking  (:list (poll *user-scores*))]
+    (let [cnt       (count ranking)]
+      (subvec ranking
+              (min count (* offset num))
+              (min count (* (inc offset) num))))))
 
 
 ;; Profile
@@ -601,7 +601,7 @@ order by count desc limit ? offset ?")
        (get-user-ranking offset
                          *per-directory-page*)))
     
-(defn directory [session offset]    
+(defn directory [session offset]
   (let [st     (fetch-template "directory" session)
         users  (get-directory-info offset)]
     (.setAttribute st "users" users)