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

tools.crossref: faster M\ link uses by calling article-content once.

clean-linux-x86-64
John Benediktsson 2019-09-11 05:00:11 -07:00
parent 5dfe740c16
commit 9736acaa5b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,11 +47,13 @@ M: callable uses ( quot -- seq )
M: word uses def>> uses ;
M: link uses
[ { $subsection $subsections $link $see-also } article-links [ >link ] map ]
[ { $vocab-link } article-links [ >vocab-link ] map ]
article-content
[ { $subsection $subsections $link $see-also } collect-elements [ >link ] map ]
[ { $vocab-link } collect-elements [ >vocab-link ] map ]
bi append ;
M: pathname uses string>> path>source-file top-level-form>> [ uses ] [ { } ] if* ;
M: pathname uses
string>> path>source-file top-level-form>> [ uses ] [ { } ] if* ;
! To make UI browser happy
M: object uses drop f ;
@ -140,7 +142,7 @@ M: f smart-usage drop \ f smart-usage ;
SINGLETON: invalidate-crossref
M: invalidate-crossref definitions-changed
2drop crossref global delete-at ;
2drop f crossref set-global ;
[ invalidate-crossref add-definition-observer ] "tools.crossref" add-startup-hook