find-base-git-directory ( path -- path'/f )

Vocabulary

git

Inputs

path

an object

Outputs

path'/f

an object

Definition

USING: kernel sequences ;

IN: git

: find-base-git-directory ( path -- path'/f )
    find-git-directory dup ".git" tail?
    [ find-base-git-directory ] unless ;