summaryrefslogtreecommitdiff
path: root/gnu/installer/utils.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/installer/utils.scm')
-rw-r--r--gnu/installer/utils.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/installer/utils.scm b/gnu/installer/utils.scm
index 6838410166d..c722e9af8fe 100644
--- a/gnu/installer/utils.scm
+++ b/gnu/installer/utils.scm
@@ -1,6 +1,7 @@
1;;; GNU Guix --- Functional package management for GNU 1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2018, 2020 Mathieu Othacehe <m.othacehe@gmail.com> 2;;; Copyright © 2018, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
3;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org> 3;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org>
4;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
4;;; 5;;;
5;;; This file is part of GNU Guix. 6;;; This file is part of GNU Guix.
6;;; 7;;;
@@ -283,11 +284,11 @@ values."
283 284
284(define (open-new-log-port) 285(define (open-new-log-port)
285 (define now (localtime (time-second (current-time)))) 286 (define now (localtime (time-second (current-time))))
286 (define filename 287 (define file-name
287 (format #f "/tmp/installer.~a.log" 288 (format #f "/tmp/installer.~a.log"
288 (strftime "%F.%T" now))) 289 (strftime "%F.%T" now)))
289 (open filename (logior O_RDWR 290 (open file-name (logior O_RDWR
290 O_CREAT))) 291 O_CREAT)))
291 292
292(define installer-log-port 293(define installer-log-port
293 (let ((port #f)) 294 (let ((port #f))