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

tools.crossref: more "make UI browser happy".

db4
John Benediktsson 2013-03-12 09:27:07 -07:00
parent e35c142195
commit 1a59420232
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,10 +1,11 @@
! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: words assocs definitions io io.pathnames io.styles kernel USING: accessors arrays assocs bootstrap.image.private
prettyprint sorting see sets sequences arrays hashtables help combinators.smart compiler.units generic generic.single graphs
help.crossref help.topics help.markup quotations accessors hashtables help help.apropos help.crossref help.markup
source-files namespaces graphs vocabs generic generic.single help.topics init io io.pathnames io.styles kernel namespaces
threads compiler.units init combinators.smart ; quotations see sequences sets sorting source-files threads
vocabs words ;
IN: tools.crossref IN: tools.crossref
SYMBOL: crossref SYMBOL: crossref
@ -15,8 +16,6 @@ GENERIC: uses ( defspec -- seq )
SYMBOL: visited SYMBOL: visited
USE: bootstrap.image.private
GENERIC# quot-uses 1 ( obj set -- ) GENERIC# quot-uses 1 ( obj set -- )
M: object quot-uses 2drop ; M: object quot-uses 2drop ;
@ -57,6 +56,8 @@ 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 ;
M: vocab-link uses drop f ;
M: apropos-search uses drop f ;
: crossref-def ( defspec -- ) : crossref-def ( defspec -- )
dup uses crossref get-global add-vertex ; dup uses crossref get-global add-vertex ;