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

tools.crossref: fix method cross-referencing

db4
Slava Pestov 2010-02-21 16:21:54 +13:00
parent 271afe3fde
commit e26393394d
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,18 +61,17 @@ M: pathname uses string>> source-file top-level-form>> [ uses ] [ { } ] if* ;
! To make UI browser happy ! To make UI browser happy
M: vocab uses drop f ; M: vocab uses drop f ;
GENERIC: crossref-def ( defspec -- ) : crossref-def ( defspec -- )
M: object crossref-def
dup uses crossref get add-vertex ; dup uses crossref get add-vertex ;
M: word crossref-def
[ call-next-method ] [ subwords [ crossref-def ] each ] bi ;
: defs-to-crossref ( -- seq ) : defs-to-crossref ( -- seq )
[ [
all-words [ generic? not ] filter all-words
[ [ generic? not ] filter ]
[ [ subwords ] map concat ] bi
all-articles [ >link ] map all-articles [ >link ] map
source-files get keys [ <pathname> ] map source-files get keys [ <pathname> ] map
] append-outputs ; ] append-outputs ;