steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Prevent predicate engine words from showing up in usage. results

db4
Slava Pestov 2011-11-12 14:50:52 -08:00
parent 03d6665166
commit 1d257c1ce4
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/tools/crossref/crossref-tests.factor
View File

@ -1,8 +1,18 @@
USING: math kernel sequences io.files io.pathnames USING: math kernel sequences io.files io.pathnames
tools.crossref tools.test parser namespaces source-files generic tools.crossref tools.crossref.private tools.test parser
definitions words accessors compiler.units ; namespaces source-files generic definitions words accessors
compiler.units classes ;
IN: tools.crossref.tests 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 ) GENERIC: foo ( a b -- c )
M: integer foo + ; M: integer foo + ;

2
basis/tools/crossref/crossref.factor
View File

@ -89,7 +89,7 @@ M: object irrelevant? drop f ;
M: default-method irrelevant? drop t ; M: default-method irrelevant? drop t ;
M: predicate-engine irrelevant? drop t ; M: predicate-engine-word irrelevant? drop t ;
PRIVATE> PRIVATE>