vocab-path>vocab ( path -- vocab )


Vocabulary
zealot.factor

Inputs
pathan object


Outputs
vocaban object


Definition
USING: io.pathnames kernel sequences splitting ;

IN: zealot.factor

: vocab-path>vocab ( path -- vocab )
[ parent-directory ] map [ "/" split1 nip ] map
[ path-separator split harvest "." join ] map ;