diff --git a/basis/furnace/sessions/sessions.factor b/basis/furnace/sessions/sessions.factor index 0d070e2e30..b7120aaf11 100755 --- a/basis/furnace/sessions/sessions.factor +++ b/basis/furnace/sessions/sessions.factor @@ -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 ; -