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

Vocabulary

git

Inputs

path

an object

Outputs

path'/f

an object

Definition

USING: io.directories io.files.info kernel sequences ;

IN: git

: find-git-directory ( path -- path'/f )
    [ ".git" tail? ] find-up-to-root
    dup ?file-info regular-file? [ parse-dot-git-file ] when ;
    inline