tree ( path -- )

Vocabulary

tools.tree

Inputs

path

an object

Outputs

None

Definition

USING: formatting io kernel namespaces ;

IN: tools.tree

: tree ( path -- )
    0 #directories set-global 0 #files set-global
    [ write ] [ V{ } clone write-tree ] bi
    nl #directories get-global #files get-global
    "\n%d directories, %d files\n" printf ;