with-git-object-stream ( id quot -- )

Vocabulary

vocabs.git.private

Inputs

id	an object
quot	an object

Outputs

None

Definition

USING: io.encodings.utf8 io.launcher kernel sequences ;

IN: vocabs.git.private

: with-git-object-stream ( id quot -- )
    [ { "git" "cat-file" "-p" } swap suffix utf8 ] dip
    with-process-reader ; inline