summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-01-29 00:16:05 +0000
committerArun Isaac2023-01-29 00:18:09 +0000
commit1bd344bf4c0c31dff379a1e6f280ae715a0e328b (patch)
tree70073c4466cd617cb21a3926cca7305cd51fed00
parentae1a4caa27cf49e3c9bdd40bd6ea04e99f0f2366 (diff)
downloadtissue-1bd344bf4c0c31dff379a1e6f280ae715a0e328b.tar.gz
tissue-1bd344bf4c0c31dff379a1e6f280ae715a0e328b.tar.lz
tissue-1bd344bf4c0c31dff379a1e6f280ae715a0e328b.zip
git: Create temporary checkout in temporary directory.
* tissue/git.scm (call-with-temporary-checkout): Create temporary checkout in temporary directory, not in current directory.
-rw-r--r--tissue/git.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/tissue/git.scm b/tissue/git.scm
index 653f8ae..b67d65c 100644
--- a/tissue/git.scm
+++ b/tissue/git.scm
@@ -220,7 +220,9 @@ checkout when PROC returns or exits non-locally."
(call-with-temporary-directory
(lambda (temporary-checkout)
(clone repository temporary-checkout)
- (proc temporary-checkout))))
+ (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