steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix load error

db4
Slava Pestov 2008-09-21 23:55:36 -05:00
parent 440818dcaf
commit cae42362d9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/furnace/sessions/sessions.factor
View File

@ -108,6 +108,7 @@ M: sessions call-responder* ( path responder -- response )
request-session [ begin-session ] unless* request-session [ begin-session ] unless*
existing-session put-session-cookie ; existing-session put-session-cookie ;
SLOT: session
: check-session ( state/f -- state/f ) : check-session ( state/f -- state/f )
dup [ dup session>> session get id>> = [ drop f ] unless ] when ; dup [ dup session>> session get id>> = [ drop f ] unless ] when ;