current-git-directory ( -- path )

Vocabulary

git

Inputs

None

Outputs

path

an object

Definition

USING: io.pathnames kernel namespaces ;

IN: git

: current-git-directory ( -- path )
    current-directory get find-git-directory
    [ current-directory get not-a-git-directory ] unless* ;