use-vocab-rev ( vocab-name rev -- )

Vocabulary

vocabs.git

Inputs

vocab-name	an object
rev	an object

Outputs

None

Definition

USING: combinators io kernel namespaces parser vocabs
vocabs.git.private vocabs.loader ;

IN: vocabs.git

: use-vocab-rev ( vocab-name rev -- )
    [ create-vocab vocab-source-path dup ] dip git-object-id [
        [
            input-stream get swap parse-stream
            ( -- ) call-effect
        ] with-git-object-stream
    ] [ git-revision-not-found ] if* ;