From f680288b4a40703ad5a1ff6055eb14a86456e13d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 8 Jun 2015 17:29:48 -0700 Subject: [PATCH] furnace.auth: rename profile to current-profile --- basis/furnace/auth/auth.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/furnace/auth/auth.factor b/basis/furnace/auth/auth.factor index 7cd2a890ee..e7b3ab72e6 100644 --- a/basis/furnace/auth/auth.factor +++ b/basis/furnace/auth/auth.factor @@ -36,20 +36,20 @@ M: dispatcher init-user-profile M: filter-responder init-user-profile responder>> init-user-profile ; -: profile ( -- assoc ) logged-in-user get profile>> ; +: current-profile ( -- assoc ) logged-in-user get profile>> ; : user-changed ( -- ) logged-in-user get t >>changed? drop ; : uget ( key -- value ) - profile at ; + current-profile at ; : uset ( value key -- ) - profile set-at + current-profile set-at user-changed ; : uchange ( quot key -- ) - profile swap change-at + current-profile swap change-at user-changed ; inline SYMBOL: capabilities -- 2.34.1