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

[factor.git] / basis / tools / deploy / shaker / shaker.factor

diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
index f4a56b8cf6c5268e58e776e4a0f0111190ba530b..e5831b54fe8b42ea27006fc7e18951d164fc70c2 100755 (executable)
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -245,7 +245,7 @@ IN: tools.deploy.shaker
 
 : compiler-classes ( -- seq )
     { "compiler" "stack-checker" }
-    [ child-vocabs [ words ] map concat [ class? ] filter ]
+    [ loaded-child-vocab-names [ vocab-words ] map concat [ class? ] filter ]
     map concat unique ;
 
 : prune-decision-tree ( tree classes -- )
@@ -304,7 +304,7 @@ IN: tools.deploy.shaker
     ] when ;
 
 : vocab-tree-globals ( except names -- words )
-    [ child-vocabs [ words ] map concat ] map concat
+    [ loaded-child-vocab-names [ vocab-words ] map concat ] map concat
     swap [ first2 lookup-word ] map sift diff ;
 
 : stripped-globals ( -- seq )
@@ -552,7 +552,7 @@ SYMBOL: deploy-vocab
 
 : write-vocab-manifest ( vocab-manifest-out -- )
     "Writing vocabulary manifest to " write dup print flush
-    vocabs "VOCABS:" prefix
+    loaded-vocab-names "VOCABS:" prefix
     deploy-libraries get [ lookup-library path>> ] map members
     "LIBRARIES:" prefix append
     swap utf8 set-file-lines ;