 : scaffolding ( path -- )
     "Creating scaffolding for " write <pathname> . ;
 
-: scaffold-path ( path suffix -- path ? )
+: scaffold-path ( path string -- path ? )
     dupd [ file-name ] dip append append-path
     dup exists? [ dup not-scaffolding f ] [ dup scaffolding t ] if ;
 

USING: assocs io.files hashtables kernel namespaces sequences
vocabs.loader io combinators io.encodings.utf8 calendar accessors
math.parser io.streams.string ui.tools.operations quotations
strings arrays prettyprint words vocabs sorting combinators.lib
sets cords ;
IN: tools.scaffold

SYMBOL: developer-name

    [ ".factor" scaffold-path ] dip
    swap [ set-scaffold-main-file ] [ 2drop ] if ;

: tests-file-string ( vocab -- string )
    [
        scaffold-copyright
        "USING: tools.test " write dup write " ;" print
