From 72a1c6912333e23b9a40fd710e73d79f8dc91c51 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 23 Feb 2009 17:28:04 +0100
Subject: Fix with-session.

---
 cljssss-g.clj | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/cljssss-g.clj b/cljssss-g.clj
index 963c166..4f781db 100644
--- 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"
-- 
cgit v1.2.3