make some more words private, rename scaffold-docs back to scaffold-help

basis/tools/scaffold/scaffold.factor

@@ -211,8 +211,6 @@ ERROR: no-vocab vocab ;
 : with-scaffold ( quot -- )
     [ H{ } clone using ] dip with-variable ; inline
 
-PRIVATE>
-
 : link-vocab ( vocab -- )
     check-vocab
     "Edit documentation: " write
@@ -221,7 +219,9 @@ PRIVATE>
 : docs. ( word -- )
     [ (docs.) ] [ nl vocabulary>> link-vocab ] bi ;
 
-: scaffold-docs ( vocab -- )
+PRIVATE>
+
+: scaffold-help ( vocab -- )
     [
         dup "-docs.factor" vocab/suffix>path scaffolding? [
             set-scaffold-docs-file
@@ -233,7 +233,7 @@ PRIVATE>
 : scaffold-undocumented ( string -- )
     [ interesting-words. ] [ link-vocab ] bi ;
 
-: scaffold-vocab ( vocab-root vocab -- )
+: scaffold-vocab ( vocab-root string -- )
     {
         [ scaffold-directory ]
         [ scaffold-main ]
@@ -241,6 +241,8 @@ PRIVATE>
         [ nip require ]
     } 2cleave ;
 
+<PRIVATE
+
 : tests-file-string ( vocab -- string )
     [
         scaffold-copyright
@@ -251,6 +253,8 @@ PRIVATE>
 : set-scaffold-tests-file ( vocab path -- )
     [ tests-file-string ] dip utf8 set-file-contents ;
 
+PRIVATE>
+
 : scaffold-tests ( vocab -- )
     dup "-tests.factor" vocab/suffix>path
     scaffolding? [