diff options
Diffstat (limited to 'tissue/git.scm')
-rw-r--r-- | tissue/git.scm | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/tissue/git.scm b/tissue/git.scm index b67d65c..4289d65 100644 --- a/tissue/git.scm +++ b/tissue/git.scm @@ -48,8 +48,7 @@ call-with-file-in-git file-modification-table clone-options - call-with-temporary-checkout - call-with-temporary-checkouts)) + call-with-temporary-checkout)) ;; We bind additional functions from libgit2 that are not already ;; bound in guile-git. TODO: Contribute them to guile-git. @@ -223,14 +222,3 @@ checkout when PROC returns or exits non-locally." (proc temporary-checkout)) ;; The system-dependent temporary directory (dirname (tmpnam)))) - -(define (call-with-temporary-checkouts repositories proc) - "Call PROC with temporary checkouts of REPOSITORIES, and delete the -checkouts when PROC returns or exits non-locally." - (match repositories - ((repository other-repositories ...) - (call-with-temporary-checkout repository - (lambda (checkout) - (call-with-temporary-checkouts other-repositories - (cut proc checkout <...>))))) - (() (proc)))) |