active-user ( user/f -- user/f )

Vocabulary

furnace.auth

Inputs

user/f

an object

Outputs

user/f

an object

Definition

USING: accessors kernel ;

IN: furnace.auth

: active-user ( user/f -- user/f )
    dup [ dup deleted>> 1 = [ drop f ] when ] when ;