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

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

clean-linux-x86-64
John Benediktsson 2019-09-11 07:20:02 -07:00
parent 9736acaa5b
commit 0ea9f8935d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,9 +47,8 @@ M: callable uses ( quot -- seq )
M: word uses def>> uses ; M: word uses def>> uses ;
M: link uses M: link uses
article-content [ { $subsection $subsections $link $see-also } article-links [ >link ] map ]
[ { $subsection $subsections $link $see-also } collect-elements [ >link ] map ] [ { $vocab-link } article-links [ >vocab-link ] map ]
[ { $vocab-link } collect-elements [ >vocab-link ] map ]
bi append ; bi append ;
M: pathname uses M: pathname uses