Fix with-session.

benkard · Feb 23, 2009 · 72a1c69 · 72a1c69
1 parent 1d8771d
commit 72a1c69
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/cljssss-g.clj b/cljssss-g.clj
@@ -17,9 +17,6 @@
                          :subname     "cljssss-g.sqlite3"
                          :create      true})
 
-;; FIXME: WAAAAAAAAAH!
-(def session {:id false})
-
 (defmacro with-db [& body]
   `(sql/with-connection db-connection-data
      ~@body))
@@ -91,10 +88,10 @@
 		]]))))
 
 (defmacro with-session [& body]
-  `(if (not (session :id))
+  `(if (not (~'session :id))
        (redirect-to "/login")
        (do ~@body)))
-      
+
 
 (defservlet cljssss-g
   (GET "/login"