init-user ( user -- )

Vocabulary

furnace.auth

Inputs

user

an object

Outputs

None

Definition

USING: kernel logging namespaces ;

IN: furnace.auth

: init-user ( user -- )
    1 \ init-user \ DEBUG log-stack
    [ [ logged-in-user set ] [ save-user-after ] bi ] when* ;