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

View File

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