steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

furnace.auth: rename profile to current-profile

db4
Doug Coleman 2015-06-08 17:29:48 -07:00
parent 6c28590789
commit f680288b4a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/furnace/auth/auth.factor
View File

@ -36,20 +36,20 @@ M: dispatcher init-user-profile
M: filter-responder init-user-profile M: filter-responder init-user-profile
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 ( -- ) : user-changed ( -- )
logged-in-user get t >>changed? drop ; logged-in-user get t >>changed? drop ;
: uget ( key -- value ) : uget ( key -- value )
profile at ; current-profile at ;
: uset ( value key -- ) : uset ( value key -- )
profile set-at current-profile set-at
user-changed ; user-changed ;
: uchange ( quot key -- ) : uchange ( quot key -- )
profile swap change-at current-profile swap change-at
user-changed ; inline user-changed ; inline
SYMBOL: capabilities SYMBOL: capabilities