uchange ( quot key -- )
Furnace framework » Furnace authentication » User profiles

Prev:

uset ( value key -- )

Vocabulary
furnace.auth

Inputs

quot	a quotation with stack effect ( old -- new )
key	a symbol

Outputs
None

Word description
Applies the quotation to the old value of the user profile variable, and assigns the resulting value back to the variable.

Definition

USING: assocs kernel ;

IN: furnace.auth

: uchange ( quot key -- )
    current-profile swap change-at user-changed ; inline