linux-initrd: Append to /etc/mtab.

* guix/build/linux-initrd.scm (mount-file-system): Open /etc/mtab in
  append mode.
master
Ludovic Courtès 2014-05-10 21:47:05 +02:00
parent 217a5b852e
commit 02139eb9b2
1 changed files with 1 additions and 1 deletions

View File

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