~ruther/guix-local: utils: Create temporary files in $TMPDIR or /tmp.

57db49cc3e7a734d684acd5aca36f246ba80be1b — Ludovic Courtès 11 years ago e617a86

utils: Create temporary files in $TMPDIR or /tmp.

Reported by Federico Beffa <beffa@ieee.org>.

* guix/utils.scm (call-with-temporary-output-file): Prepend $TMPDIR or
  /tmp to TEMPLATE.

patch browse .tar.gz

1 files changed, 3 insertions(+), 2 deletions(-)

M guix/utils.scm

M guix/utils.scm => guix/utils.scm +3 -2

@@ 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)