         [ nip require ]
     } 2cleave ;
 
+<PRIVATE
+
 : tests-file-string ( vocab -- string )
     [
         scaffold-copyright


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

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

: scaffold-undocumented ( string -- )
    [ interesting-words. ] [ link-vocab ] bi ;

: scaffold-vocab ( vocab-root string -- )
    {
        [ scaffold-directory ]
        [ scaffold-main ]
