set-git-object-field ( obj name parameter -- obj )

Vocabulary

git

Inputs

obj	an object
name	an object
parameter	an object

Outputs

obj

an object

Definition

USING: accessors combinators kernel ;

IN: git

: set-git-object-field ( obj name parameter -- obj )
    swap {
        { "tree" [ >>tree ] }
        { "parent" [ >>parents ] }
        { "author" [ >>author ] }
        { "committer" [ >>committer ] }
        { "gpgsig" [ >>gpgsig ] }
        { "message" [ >>message ] }
        [ unknown-field ]
    } case ; inline