(disk-vocabs) ( root prefix -- seq )

Vocabulary

vocabs.hierarchy.private

Inputs

root	an object
prefix	an object

Outputs

seq

an object

Definition

USING: accessors io.files io.pathnames kernel sequences vocabs
vocabs.hierarchy ;

IN: vocabs.hierarchy.private

: (disk-vocabs) ( root prefix -- seq )
    vocab-directory-entries visible-dirs [
        name>>
        [ dup ".factor" append append-path append-path ]
        [ over empty? [ nip ] [ "." glue ] if ] bi-curry bi*
        swap file-exists? [ >vocab-link ] [ <vocab-prefix> ] if
    ] 2with map ;