git-log ( -- log )

Vocabulary

git

Inputs

None

Outputs

log

an object

Definition

USING: accessors kernel namespaces random sequences strings ;

IN: git

: git-log ( -- log )
    H{ } clone parents [
        git-head-object [
            parents>> dup string? [ random ] unless [
                dup git-unpacked-object-exists?
                [ git-read-object ] [ git-object-from-pack ] if
            ] [ f ] if*
        ] follow
    ] with-variable ;