disambiguate namespaces:set and sets:set.

[factor.git] / basis / furnace / auth / auth.factor

diff --git a/basis/furnace/auth/auth.factor b/basis/furnace/auth/auth.factor
index b75c53eb8b688c44c68e7b1d0c9391b543e943de..173984db3239aa03dee2eb3ebede6e8a812a4136 100644 (file)
--- a/basis/furnace/auth/auth.factor
+++ b/basis/furnace/auth/auth.factor
@@ -93,12 +93,12 @@ M: user-saver dispose
     <user-saver> &dispose drop ;
 
 : init-user ( user -- )
-    [ [ logged-in-user set ] [ save-user-after ] bi ] when* ;
+    [ [ logged-in-user namespaces:set ] [ save-user-after ] bi ] when* ;
 
 \ init-user DEBUG add-input-logging
 
 M: realm call-responder* ( path responder -- response )
-    dup realm set
+    dup realm namespaces:set
     logged-in? [
         dup init-realm
         dup logged-in-username
@@ -147,7 +147,7 @@ TUPLE: protected < filter-responder description capabilities ;
     ] if ;
 
 M: protected call-responder* ( path responder -- response )
-    dup protected set
+    dup protected namespaces:set
     dup capabilities>> have-capabilities?
     [ call-next-method ] [
         [ drop ] [ [ description>> ] [ capabilities>> ] bi ] bi*