assocs.extras: Move some often-used words to core

[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 ca241d161b5ea99f5c2586d462d089121f576e5f..9e0d6769a55add5d57ac233a766f6e192c471637 100644 (file)
--- a/basis/furnace/auth/providers/couchdb/couchdb.factor
+++ b/basis/furnace/auth/providers/couchdb/couchdb.factor
@@ -112,12 +112,10 @@ TUPLE: couchdb-auth-provider
     url>user ;
 
 : strip-hash ( hash1 -- hash2 )
-    [ drop first CHAR: _ = ] assoc-reject ;
+    [ first CHAR: _ = ] reject-keys ;
 
-: at-or-k ( key hash -- newkey )
-    ?at drop ;
-: value-at-or-k ( key hash -- newkey )
-    ?value-at drop ;
+: at-or-k ( key hash -- newkey ) ?at drop ;
+: value-at-or-k ( key hash -- newkey ) ?value-at drop ;
 
 : map-fields-forward ( assoc field-map -- assoc )
     [ swapd at-or-k swap ] curry assoc-map ;