check-session ( state/f -- state/f )

Vocabulary

furnace.sessions

Inputs

state/f

an object

Outputs

state/f

an object

Definition

USING: accessors kernel namespaces ;

IN: furnace.sessions

: check-session ( state/f -- state/f )
    dup [ dup session>> session get id>> = and* ] when ;