changed-factor-vocabs ( old-rev new-rev -- vocabs )

Vocabulary

zealot.factor

Inputs

old-rev	an object
new-rev	an object

Outputs

vocabs

an object

Definition

USING: cli.git io.pathnames kernel sequences sets splitting
vocabs.loader ;

IN: zealot.factor

: changed-factor-vocabs ( old-rev new-rev -- vocabs )
    [
        default-vocab-roots [ ":" split1 nip ] map
        [ "/" append ] map
    ] 2dip git-diff-name-only* [ ".factor" tail? ] filter
    [ swap [ head? ] with any? ] with filter
    [ parent-directory ] map [ "/" split1 nip ] map
    [ path-separator split harvest "." join ] map members ;