write-entry ( entry indents -- )

Vocabulary

tools.tree

Inputs

entry	an object
indents	an object

Outputs

None

Definition

USING: io io.files.info kernel ;

IN: tools.tree

: write-entry ( entry indents -- )
    nl over directory? [ write-dir ] [ write-file ] if ;