use reject instead of [ ... not ] filter.

[factor.git] / extra / resolv-conf / resolv-conf.factor

diff --git a/extra/resolv-conf/resolv-conf.factor b/extra/resolv-conf/resolv-conf.factor
index 2859139e0bdca7c5213ac5c98c548efc7bc3f33e..b6eefd214785192277c39d659655c6e38248bd0a 100644 (file)
--- a/extra/resolv-conf/resolv-conf.factor
+++ b/extra/resolv-conf/resolv-conf.factor
@@ -90,7 +90,7 @@ PRIVATE>
     [ <resolv.conf> ] dip
     utf8 file-lines
     [ [ blank? ] trim ] map harvest
-    [ "#" head? not ] filter
+    [ "#" head? ] reject
     [ parse-resolv.conf-line ] each ;
 
 : default-resolv.conf ( -- resolv.conf )