tjhintz/simple
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing session-id check.

Browse Source
This commit is contained in:
Thomas Hintz
2015-06-18 15:43:47 -07:00
parent 19fb257769
commit c64ca08f1c
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
simple.scm
View File

@@ -235,7 +235,8 @@
(define (get-sid #!optional force-read-sid) (define (get-sid #!optional force-read-sid)
(and (or (enable-session) force-read-sid) (and (or (enable-session) force-read-sid)
(if (enable-session-cookie) (if (enable-session-cookie)
(or (read-cookie (session-cookie-name)) ($ 'sid)) (or (read-cookie (session-cookie-name)) ($ 'sid)
(sid))
($ 'sid)))) ($ 'sid))))
(define (redirect-to new-uri) (define (redirect-to new-uri)