From 1d257c1ce4888aedfbf2556de86b386e0499f4ba Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 12 Nov 2011 14:50:52 -0800 Subject: [PATCH] Prevent predicate engine words from showing up in usage. results --- basis/tools/crossref/crossref-tests.factor | 14 ++++++++++++-- basis/tools/crossref/crossref.factor | 2 +- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/basis/tools/crossref/crossref-tests.factor b/basis/tools/crossref/crossref-tests.factor index fb42d491b9..361b52b45f 100644 --- 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 5e14459413..5ff03bdf0a 100644 --- 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>