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

basis/peg/ebnf/ebnf.factor

@@ -456,7 +456,7 @@ M: ebnf-sequence build-locals ( code ast -- code )
   elements>> filter-hidden dup length 1 = [ 
     first build-locals 
   ]  [
-    dup [ ebnf-var? ] filter empty? [
+    dup [ ebnf-var? ] any? not [
       drop 
     ] [ 
       [

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 ;
 

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
 

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