core/basis: Rename words dealing with vocabs to loaded-vocabs or disk-vocabs because...

[factor.git] / extra / fuel / xref / xref.factor

diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor
index 3c1752257cf5e48b36ed404eef7d9cf06e4b90c9..f7f3a724fbb7d1ed94c1c7e1baa513e258240532 100644 (file)
--- a/extra/fuel/xref/xref.factor
+++ b/extra/fuel/xref/xref.factor
@@ -34,7 +34,7 @@ IN: fuel.xref
     [ drop-prefix nip empty? ] curry filter members ;
 
 MEMO: (vocab-words) ( name -- seq )
-    >vocab-link words [ name>> ] map ;
+    >vocab-link vocab-words [ name>> ] map ;
 
 : current-words ( -- seq )
     manifest get
@@ -53,7 +53,7 @@ PRIVATE>
 : apropos-xref ( str -- seq ) words-matching keys format-xrefs group-xrefs ;
 
 : vocab-xref ( vocab -- seq )
-    dup ".private" append [ words ] bi@ append
+    dup ".private" append [ vocab-words ] bi@ append
     format-xrefs group-xrefs ;
 
 : word-location ( word -- loc ) where get-loc ;
@@ -68,7 +68,7 @@ PRIVATE>
 
 : article-location ( name -- loc ) lookup-article loc>> get-loc ;
 
-: get-vocabs/prefix ( prefix -- seq ) all-vocab-names swap filter-prefix ;
+: get-vocabs/prefix ( prefix -- seq ) all-disk-vocab-names swap filter-prefix ;
 
 : get-vocabs-words/prefix ( prefix names/f -- seq )
     [ vocabs-words ] [ current-words ] if* natural-sort swap filter-prefix ;