tools.crossref: actually, prefer higher level article-links word.

diff --git a/basis/tools/crossref/crossref.factor b/basis/tools/crossref/crossref.factor
index 43e7a1c9a2c8e309f2cd1bfa325e2a3101b8da91..d148c80e8d06f6988294e13e163281cf21004602 100644 (file)
--- a/basis/tools/crossref/crossref.factor
+++ b/basis/tools/crossref/crossref.factor
@@ -47,9 +47,8 @@ M: callable uses ( quot -- seq )
 M: word uses def>> uses ;
 
 M: link uses
-    article-content
-    [ { $subsection $subsections $link $see-also } collect-elements [ >link ] map ]
-    [ { $vocab-link } collect-elements [ >vocab-link ] map ]
+    [ { $subsection $subsections $link $see-also } article-links [ >link ] map ]
+    [ { $vocab-link } article-links [ >vocab-link ] map ]
     bi append ;
 
 M: pathname uses