From 02139eb9b2bdbe1b342a0550dd8725a764716c28 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 10 May 2014 21:47:05 +0200
Subject: [PATCH] linux-initrd: Append to /etc/mtab.
* guix/build/linux-initrd.scm (mount-file-system): Open /etc/mtab in
append mode.
---
guix/build/linux-initrd.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guix/build/linux-initrd.scm b/guix/build/linux-initrd.scm
index 16c741f931b..83636dfd733 100644
--- a/guix/build/linux-initrd.scm
+++ b/guix/build/linux-initrd.scm
@@ -285,7 +285,7 @@ (define flags->bit-mask
;; Update /etc/mtab.
(mkdir-p (string-append root "/etc"))
- (let ((port (open-output-file (string-append root "/etc/mtab"))))
+ (let ((port (open-file (string-append root "/etc/mtab") "a")))
(format port "~a ~a ~a ~a 0 0~%"
source mount-point type options)
(close-port port))))))
--
GitLab