From 1bd344bf4c0c31dff379a1e6f280ae715a0e328b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 29 Jan 2023 00:16:05 +0000
Subject: git: Create temporary checkout in temporary directory.

* tissue/git.scm (call-with-temporary-checkout): Create temporary
checkout in temporary directory, not in current directory.
---
 tissue/git.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'tissue')

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
-- 
cgit v1.2.3