make-git-object ( str -- obj )

Vocabulary

git

Inputs

str

an object

Outputs

obj

an object

Definition

USING: combinators.smart kernel math.parser sequences ;

IN: git

: make-git-object ( str -- obj )
    [ [ "blob " ] dip [ length number>string "\0" ] [ ] bi ]
    B{ } append-outputs-as ;