From 02139eb9b2bdbe1b342a0550dd8725a764716c28 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 10 May 2014 21:47:05 +0200 Subject: 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 16c741f931..83636dfd73 100644 --- a/guix/build/linux-initrd.scm +++ b/guix/build/linux-initrd.scm @@ -285,7 +285,7 @@ run a file system check." ;; 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)))))) -- cgit v1.2.3