write-dir ( entry indents -- )

Vocabulary

tools.tree

Inputs

entry	an object
indents	an object

Outputs

None

Definition

USING: accessors continuations io kernel math namespaces ;

IN: tools.tree

: write-dir ( entry indents -- )
    [ write-name ] [
        [ [ name>> ] dip write-tree ]
        [ 3drop " [error opening dir]" write ] recover
    ] 2bi #directories [ 1 + ] change-global ;