git-directory? ( directory -- ? )

Vocabulary

cli.git

Inputs

directory

an object

Outputs

?

an object

Definition

USING: io.files.info io.pathnames kernel namespaces ;

IN: cli.git

: git-directory? ( directory -- ? )
    ".git" append-path current-directory get prepend-path
    ?file-info dup [ directory? ] when ;