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

tools.crossref: fix for bootstrap errors.

db4
John Benediktsson 2013-03-12 21:01:16 -07:00
parent 1a59420232
commit 668de36940
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,10 +2,9 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs bootstrap.image.private USING: accessors arrays assocs bootstrap.image.private
combinators.smart compiler.units generic generic.single graphs combinators.smart compiler.units generic generic.single graphs
hashtables help help.apropos help.crossref help.markup hashtables help help.crossref help.markup help.topics init io
help.topics init io io.pathnames io.styles kernel namespaces io.pathnames io.styles kernel namespaces quotations see
quotations see sequences sets sorting source-files threads sequences sets sorting source-files threads vocabs words ;
vocabs words ;
IN: tools.crossref IN: tools.crossref
SYMBOL: crossref SYMBOL: crossref
@ -55,9 +54,7 @@ M: link uses
M: pathname uses string>> source-file top-level-form>> [ uses ] [ { } ] if* ; 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: object 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 ;