factor: remove rest of double paren words.

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

diff --git a/basis/furnace/auth/providers/couchdb/couchdb.factor b/basis/furnace/auth/providers/couchdb/couchdb.factor
index 56cdaa8300be24f93d8b52c6b1841241ff6f3eea..8c9d47cb045f13e9daa6af678c95959518eefbeb 100644 (file)
--- a/basis/furnace/auth/providers/couchdb/couchdb.factor
+++ b/basis/furnace/auth/providers/couchdb/couchdb.factor
@@ -107,7 +107,7 @@ TUPLE: couchdb-auth-provider
     over [ change-at ] dip ; inline
 
 ! Should be given a view URL.
-: ((get-user)) ( couchdb-url -- user/f )
+: url>user ( couchdb-url -- user/f )
     couch-get
     "rows" of dup empty? [ drop f ] [ first "value" of ] if ;
 
@@ -115,7 +115,7 @@ TUPLE: couchdb-auth-provider
     couchdb-auth-provider get
     username-view>> get-url
     swap >json "key" set-query-param
-    ((get-user)) ;
+    url>user ;
 
 : strip-hash ( hash1 -- hash2 )
     [ drop first CHAR: _ = ] assoc-reject ;