"filter empty?" is "any? not".

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 843e99d4081e2617c97a501caec4a5f45d14ba19..e6d7e67694d904f043d6daaa2307bdc040e8e765 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -456,7 +456,7 @@ M: ebnf-sequence build-locals ( code ast -- code )
   elements>> filter-hidden dup length 1 = [ \r
     first build-locals \r
   ]  [\r
-    dup [ ebnf-var? ] filter empty? [\r
+    dup [ ebnf-var? ] any? not [\r
       drop \r
     ] [ \r
       [\r

diff --git a/basis/tools/deprecation/deprecation.factor b/basis/tools/deprecation/deprecation.factor
index 8dbfda3011204cf9a06bfebfb0a6eac7dea3e808..2434a2c1fd3e21213392ea82ed4eb1239aebf67d 100644 (file)
--- a/basis/tools/deprecation/deprecation.factor
+++ b/basis/tools/deprecation/deprecation.factor
@@ -68,7 +68,7 @@ SINGLETON: deprecation-observer
 
 M: deprecation-observer definitions-changed
     drop keys [ word? ] filter
-    dup [ deprecated? ] filter empty?
+    dup [ deprecated? ] any? not
     [ [ check-deprecations ] each ]
     [ drop initialize-deprecation-notes ] if ;
 

diff --git a/extra/multi-methods/multi-methods.factor b/extra/multi-methods/multi-methods.factor
index f0f3b99d16bc45d906a07b34654b09a88a4140ca..1a0a80073ad29742b36152cc9d511b37155ec81e 100644 (file)
--- a/extra/multi-methods/multi-methods.factor
+++ b/extra/multi-methods/multi-methods.factor
@@ -76,7 +76,7 @@ SYMBOL: total
 ! Part II: Topologically sorting specializers
 : maximal-element ( seq quot -- n elt )
     dupd [
-        swapd [ call +lt+ = ] 2curry filter empty?
+        swapd [ call +lt+ = ] 2curry any? not
     ] 2curry find [ "Topological sort failed" throw ] unless* ;
     inline
 

diff --git a/unmaintained/dns/server/server.factor b/unmaintained/dns/server/server.factor
index 773fe31ea6a1c1ddc53ccf896aea12b1155afe52..66acb6f4b87d2f916dd26030673ef3bcbc2b873a 100644 (file)
--- a/unmaintained/dns/server/server.factor
+++ b/unmaintained/dns/server/server.factor
@@ -164,7 +164,7 @@ DEFER: query->rrs
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : is-nx ( message -- message/f )
-  [ message-query name>> records [ name>> = ] with filter empty? ]
+  [ message-query name>> records [ name>> = ] with any? not ]
     [
       NAME-ERROR >>rcode
       dup