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

: with-scaffold ( quot -- )
    [ H{ } clone using ] dip with-variable ; inline

PRIVATE>

: link-vocab ( vocab -- )
    check-vocab
    "Edit documentation: " write


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

PRIVATE>

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