M: filter-responder init-user-profile\r
responder>> init-user-profile ;\r
\r
-: profile ( -- assoc ) logged-in-user get profile>> ;\r
+: current-profile ( -- assoc ) logged-in-user get profile>> ;\r
\r
: user-changed ( -- )\r
logged-in-user get t >>changed? drop ;\r
\r
: uget ( key -- value )\r
- profile at ;\r
+ current-profile at ;\r
\r
: uset ( value key -- )\r
- profile set-at\r
+ current-profile set-at\r
user-changed ;\r
\r
: uchange ( quot key -- )\r
- profile swap change-at\r
+ current-profile swap change-at\r
user-changed ; inline\r
\r
SYMBOL: capabilities\r