Prevent predicate engine words from showing up in usage. results

diff --git a/basis/tools/crossref/crossref-tests.factor b/basis/tools/crossref/crossref-tests.factor
index fb42d491b998336f0a1ac5d979742d17221a622d..361b52b45f5cc81d35d0b40d3c116bb8534aa14c 100644 (file)
--- a/basis/tools/crossref/crossref-tests.factor
+++ b/basis/tools/crossref/crossref-tests.factor
@@ -1,8 +1,18 @@
 USING: math kernel sequences io.files io.pathnames
-tools.crossref tools.test parser namespaces source-files generic
-definitions words accessors compiler.units ;
+tools.crossref tools.crossref.private tools.test parser
+namespaces source-files generic definitions words accessors
+compiler.units classes ;
 IN: tools.crossref.tests
 
+GENERIC: predicate-test ( a -- b )
+
+M: class predicate-test ;
+
+M: generic predicate-test ;
+
+[ f ] [ \ + irrelevant? ] unit-test
+[ t ] [ \ predicate-test "engines" word-prop first irrelevant? ] unit-test
+
 GENERIC: foo ( a b -- c )
 
 M: integer foo + ;

diff --git a/basis/tools/crossref/crossref.factor b/basis/tools/crossref/crossref.factor
index 5e144594138cf7734fae6ed85afee5446d19e929..5ff03bdf0aaefcbe241993bdda2892c40042964f 100644 (file)
--- a/basis/tools/crossref/crossref.factor
+++ b/basis/tools/crossref/crossref.factor
@@ -89,7 +89,7 @@ M: object irrelevant? drop f ;
 
 M: default-method irrelevant? drop t ;
 
-M: predicate-engine irrelevant? drop t ;
+M: predicate-engine-word irrelevant? drop t ;
 
 PRIVATE>