add-vocab-children% ( vocab-path vocab-name entries -- )

Vocabulary

vocabs.hierarchy.private

Inputs

vocab-path	an object
vocab-name	an object
entries	an object

Outputs

None

Definition

USING: accessors io.directories io.pathnames kernel sequences ;

IN: vocabs.hierarchy.private

: add-vocab-children% ( vocab-path vocab-name entries -- )
    visible-dirs [
        name>>
        [ append-path ] [ over empty? [ nip ] [ "." glue ] if ]
        bi-curry bi* over directory-entries add-vocab%
    ] 2with each ;