From cae42362d99744c1ffcc84a45626ea080155e483 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 21 Sep 2008 23:55:36 -0500 Subject: [PATCH] Fix load error --- basis/furnace/sessions/sessions.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 ; -