From edd279d4fa014f9e43d53c2bb8a259ec31c5dc22 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 19 Jul 2012 16:33:01 -0700
Subject: [PATCH] "filter empty?" is "any? not".

---
 basis/peg/ebnf/ebnf.factor                 | 2 +-
 basis/tools/deprecation/deprecation.factor | 2 +-
 extra/multi-methods/multi-methods.factor   | 2 +-
 unmaintained/dns/server/server.factor      | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 843e99d408..e6d7e67694 100644
--- 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 = [ 
     first build-locals 
   ]  [
-    dup [ ebnf-var? ] filter empty? [
+    dup [ ebnf-var? ] any? not [
       drop 
     ] [ 
       [
diff --git a/basis/tools/deprecation/deprecation.factor b/basis/tools/deprecation/deprecation.factor
index 8dbfda3011..2434a2c1fd 100644
--- 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 f0f3b99d16..1a0a80073a 100644
--- 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 773fe31ea6..66acb6f4b8 100644
--- 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