furnace.auth: rename profile to current-profile

diff --git a/basis/furnace/auth/auth.factor b/basis/furnace/auth/auth.factor
index 7cd2a890eeccba9397743bef48829f1ad24a2833..e7b3ab72e6568d0cce0389ef0d65b13b023d95e6 100644 (file)
--- 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\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