 : 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


: set-scaffold-tests-file ( vocab path -- )
    [ tests-file-string ] dip utf8 set-file-contents ;

: scaffold-tests ( vocab -- )
    dup "-tests.factor" vocab/suffix>path

        [ nip require ]
    } 2cleave ;

<PRIVATE

: tests-file-string ( vocab -- string )
    [
        scaffold-copyright
