scaffolding? ( path -- path ? )

Vocabulary

tools.scaffold.private

Inputs

path

an object

Outputs

path	an object
?	an object

Definition

USING: io io.files io.pathnames kernel prettyprint ;

IN: tools.scaffold.private

: scaffolding? ( path -- path ? )
    [ "Not creating scaffolding for " f ]
    [ "Creating scaffolding for " t ] if-file-exists
    [ write dup <pathname> . ] dip ;