?file-info dup [ directory? ] when ;
: git-current-branch* ( -- name )
- { "git" "rev-parse" "--abbrev-ref" "HEAD" } git-command>string ;
+ { "git" "rev-parse" "--abbrev-ref" "HEAD" } git-command>string ;
: git-current-branch ( directory -- name )
[ git-current-branch* ] with-directory ;