From 57db49cc3e7a734d684acd5aca36f246ba80be1b Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 17 Sep 2014 07:18:46 +0200 Subject: utils: Create temporary files in $TMPDIR or /tmp. Reported by Federico Beffa . * guix/utils.scm (call-with-temporary-output-file): Prepend $TMPDIR or /tmp to TEMPLATE. --- guix/utils.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'guix/utils.scm') diff --git a/guix/utils.scm b/guix/utils.scm index b61ff2477d..34a5e6c971 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -600,8 +600,9 @@ REPLACEMENT." "Call PROC with a name of a temporary file and open output port to that file; close the file and delete it when leaving the dynamic extent of this call." - (let* ((template (string-copy "guix-file.XXXXXX")) - (out (mkstemp! template))) + (let* ((directory (or (getenv "TMPDIR") "/tmp")) + (template (string-append directory "/guix-file.XXXXXX")) + (out (mkstemp! template))) (dynamic-wind (lambda () #t) -- cgit v1.2.3