factor: use ??if instead of ?if-old

[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 3b090ee64ce38da41774c2cde3aaac807ba5ae29..ca241d161b5ea99f5c2586d462d089121f576e5f 100644 (file)
--- a/basis/furnace/auth/providers/couchdb/couchdb.factor
+++ b/basis/furnace/auth/providers/couchdb/couchdb.factor
@@ -115,9 +115,9 @@ TUPLE: couchdb-auth-provider
     [ drop first CHAR: _ = ] assoc-reject ;
 
 : at-or-k ( key hash -- newkey )
-    dupd at [ nip ] when* ;
+    ?at drop ;
 : value-at-or-k ( key hash -- newkey )
-    dupd value-at [ nip ] when* ;
+    ?value-at drop ;
 
 : map-fields-forward ( assoc field-map -- assoc )
     [ swapd at-or-k swap ] curry assoc-map ;