diff options
author | Thomas Hintz <t@thintz.com> | 2015-06-18 15:43:47 -0700 |
---|---|---|
committer | Thomas Hintz <t@thintz.com> | 2015-06-18 15:43:47 -0700 |
commit | c64ca08f1c41de3d5026ed6a4e976aa244f488e0 (patch) | |
tree | 56d33543ef7728b634ebd29e0739821de1a6e23a | |
parent | 19fb2577692abb1d96b61032d3a7380cc941da06 (diff) | |
download | simple-c64ca08f1c41de3d5026ed6a4e976aa244f488e0.tar.gz |
Fixing session-id check.
-rw-r--r-- | simple.scm | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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) |