summary refs log tree commit diff
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