diff options
| author | Arun Isaac | 2023-01-29 00:16:05 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-01-29 00:18:09 +0000 |
| commit | 1bd344bf4c0c31dff379a1e6f280ae715a0e328b (patch) | |
| tree | 70073c4466cd617cb21a3926cca7305cd51fed00 | |
| parent | ae1a4caa27cf49e3c9bdd40bd6ea04e99f0f2366 (diff) | |
| download | tissue-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.scm | 4 |
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 |