summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2015-06-18 15:43:47 -0700
committerThomas Hintz <t@thintz.com>2015-06-18 15:43:47 -0700
commitc64ca08f1c41de3d5026ed6a4e976aa244f488e0 (patch)
tree56d33543ef7728b634ebd29e0739821de1a6e23a
parent19fb2577692abb1d96b61032d3a7380cc941da06 (diff)
downloadsimple-c64ca08f1c41de3d5026ed6a4e976aa244f488e0.tar.gz
Fixing session-id check.
-rw-r--r--simple.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/simple.scm b/simple.scm
index 6166fde..e8ddd08 100644
--- a/simple.scm
+++ b/simple.scm
@@ -235,7 +235,8 @@
(define (get-sid #!optional force-read-sid)
(and (or (enable-session) force-read-sid)
(if (enable-session-cookie)
- (or (read-cookie (session-cookie-name)) ($ 'sid))
+ (or (read-cookie (session-cookie-name)) ($ 'sid)
+ (sid))
($ 'sid))))
(define (redirect-to new-uri)