diff options
Diffstat (limited to 'gitto/git.scm')
-rw-r--r-- | gitto/git.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gitto/git.scm b/gitto/git.scm index 83674be..be91042 100644 --- a/gitto/git.scm +++ b/gitto/git.scm @@ -36,6 +36,7 @@ repo-clean? repo-location repo-name + repository? same-repository?)) (define show-unchanged-branches? #f) @@ -55,6 +56,9 @@ (clean? #:getter repo-clean?) (branches #:getter repo-branches)) +(define (repository? repo) + (is-a? repo <repository>)) + (define-method (branch-pullable (branch <branch>)) (force (slot-ref branch 'pullable))) @@ -180,6 +184,9 @@ REPO should be of type `<repository>' and the result is a string." (define-method (same-repository? (x <string>) (y <repository>)) (string= x (repo-location y))) +(define-method (same-repository? x y) + #f) + (define* (start-git dir args #:optional (extra "")) (open-input-pipe (format #f "git --work-tree=~s --git-dir=\"~a/.git\" ~a 2>/dev/null ~a" |