From 1a59420232b55ba04de39314a230d463098bee8d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 12 Mar 2013 09:27:07 -0700 Subject: [PATCH] tools.crossref: more "make UI browser happy". --- basis/tools/crossref/crossref.factor | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/basis/tools/crossref/crossref.factor b/basis/tools/crossref/crossref.factor index 53146f2cc3..32fd448a85 100644 --- a/basis/tools/crossref/crossref.factor +++ b/basis/tools/crossref/crossref.factor @@ -1,10 +1,11 @@ ! Copyright (C) 2005, 2010 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: words assocs definitions io io.pathnames io.styles kernel -prettyprint sorting see sets sequences arrays hashtables help -help.crossref help.topics help.markup quotations accessors -source-files namespaces graphs vocabs generic generic.single -threads compiler.units init combinators.smart ; +USING: accessors arrays assocs bootstrap.image.private +combinators.smart compiler.units generic generic.single graphs +hashtables help help.apropos help.crossref help.markup +help.topics init io io.pathnames io.styles kernel namespaces +quotations see sequences sets sorting source-files threads +vocabs words ; IN: tools.crossref SYMBOL: crossref @@ -15,8 +16,6 @@ GENERIC: uses ( defspec -- seq ) SYMBOL: visited -USE: bootstrap.image.private - GENERIC# quot-uses 1 ( obj set -- ) 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 M: vocab uses drop f ; +M: vocab-link uses drop f ; +M: apropos-search uses drop f ; : crossref-def ( defspec -- ) dup uses crossref get-global add-vertex ;