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

[factor.git] / basis / etc-hosts / etc-hosts.factor

diff --git a/basis/etc-hosts/etc-hosts.factor b/basis/etc-hosts/etc-hosts.factor
index d56dbda3eeb1dfd4de39849e5dc878d0bca8e893..340c68f0c4b18f360da183376394e490adf43516 100644 (file)
--- a/basis/etc-hosts/etc-hosts.factor
+++ b/basis/etc-hosts/etc-hosts.factor
@@ -22,7 +22,6 @@ M: unix hosts-path "/etc/hosts" ;
 MEMO: system-hosts ( -- hosts ) hosts-path parse-hosts ;
 
 : host>ips ( host -- ips )
-    system-hosts [ member? nip ] with assoc-filter keys ;
+    system-hosts [ member? ] with filter-values keys ;
 
-: ip>hosts ( ip -- hosts )
-    system-hosts at ;
+: ip>hosts ( ip -- hosts ) system-hosts at ;